171 integer,
intent(in) :: ng, lbi, ubi, lbj, ubj
185 size2d=real((ubi-lbi+1)*(ubj-lbj+1),
r8)
190 allocate (
clima(ng) % ssh(lbi:ubi,lbj:ubj) )
194 allocate (
clima(ng) % sshG(lbi:ubi,lbj:ubj,2) )
200 allocate (
clima(ng) % ubarclm(lbi:ubi,lbj:ubj) )
203 allocate (
clima(ng) % vbarclm(lbi:ubi,lbj:ubj) )
207 allocate (
clima(ng) % ubarclmG(lbi:ubi,lbj:ubj,2) )
210 allocate (
clima(ng) % vbarclmG(lbi:ubi,lbj:ubj,2) )
218 allocate (
clima(ng) % uclm(lbi:ubi,lbj:ubj,
n(ng)) )
221 allocate (
clima(ng) % vclm(lbi:ubi,lbj:ubj,
n(ng)) )
225 allocate (
clima(ng) % uclmG(lbi:ubi,lbj:ubj,
n(ng),2) )
228 allocate (
clima(ng) % vclmG(lbi:ubi,lbj:ubj,
n(ng),2) )
234 allocate (
clima(ng) % tclm(lbi:ubi,lbj:ubj,
n(ng),
ntclm(ng)) )
238 allocate (
clima(ng) % tclmG(lbi:ubi,lbj:ubj,
n(ng),2, &
248 allocate (
clima(ng) % M2nudgcof(lbi:ubi,lbj:ubj) )
254 allocate (
clima(ng) % M3nudgcof(lbi:ubi,lbj:ubj,
n(ng)) )
259 allocate (
clima(ng) % Tnudgcof(lbi:ubi,lbj:ubj,
n(ng), &
265#if defined AD_SENSITIVITY || defined I4DVAR_ANA_SENSITIVITY || \
266 defined opt_observations || defined sensitivity_4dvar || \
271 allocate (
clima(ng) % zeta_ads(lbi:ubi,lbj:ubj) )
274 allocate (
clima(ng) % zeta_adsG(lbi:ubi,lbj:ubj,2) )
277 allocate (
clima(ng) % ubar_ads(lbi:ubi,lbj:ubj) )
280 allocate (
clima(ng) % vbar_ads(lbi:ubi,lbj:ubj) )
283 allocate (
clima(ng) % ubar_adsG(lbi:ubi,lbj:ubj,2) )
286 allocate (
clima(ng) % vbar_adsG(lbi:ubi,lbj:ubj,2) )
290 allocate (
clima(ng) % u_ads(lbi:ubi,lbj:ubj,
n(ng)) )
293 allocate (
clima(ng) % v_ads(lbi:ubi,lbj:ubj,
n(ng)) )
296 allocate (
clima(ng) % u_adsG(lbi:ubi,lbj:ubj,
n(ng),2) )
299 allocate (
clima(ng) % v_adsG(lbi:ubi,lbj:ubj,
n(ng),2) )
302 allocate (
clima(ng) % wvel_ads(lbi:ubi,lbj:ubj,0:
n(ng)) )
305 allocate (
clima(ng) % wvel_adsG(lbi:ubi,lbj:ubj,0:
n(ng),2) )
308 allocate (
clima(ng) % t_ads(lbi:ubi,lbj:ubj,
n(ng),
nt(ng)) )
311 allocate (
clima(ng) % t_adsG(lbi:ubi,lbj:ubj,
n(ng),2,
nt(ng)) )
508 integer,
intent(in) :: ng, tile
512 integer :: imin, imax, jmin, jmax
518 real(
r8),
parameter :: inival = 0.0_r8
520#include "set_bounds.h"
530 IF (
domain(ng)%Western_Edge(tile))
THEN
535 IF (
domain(ng)%Eastern_Edge(tile))
THEN
540 IF (
domain(ng)%Southern_Edge(tile))
THEN
545 IF (
domain(ng)%Northern_Edge(tile))
THEN
561 clima(ng) % ssh(i,j) = inival
563 clima(ng) % sshG(i,j,1) = inival
564 clima(ng) % sshG(i,j,2) = inival
573 clima(ng) % ubarclm(i,j) = inival
574 clima(ng) % vbarclm(i,j) = inival
576 clima(ng) % ubarclmG(i,j,1) = inival
577 clima(ng) % ubarclmG(i,j,2) = inival
578 clima(ng) % vbarclmG(i,j,1) = inival
579 clima(ng) % vbarclmG(i,j,2) = inival
591 clima(ng) % uclm(i,j,k) = inival
592 clima(ng) % vclm(i,j,k) = inival
594 clima(ng) % uclmG(i,j,k,1) = inival
595 clima(ng) % uclmG(i,j,k,2) = inival
596 clima(ng) % vclmG(i,j,k,1) = inival
597 clima(ng) % vclmG(i,j,k,2) = inival
609 clima(ng) % tclm(i,j,k,itrc) = inival
611 clima(ng) % tclmG(i,j,k,1,itrc) = inival
612 clima(ng) % tclmG(i,j,k,2,itrc) = inival
626 clima(ng) % M2nudgcof(i,j) = inival
637 clima(ng) % M3nudgcof(i,j,k) = inival
648 clima(ng) % Tnudgcof(i,j,k,itrc) = inival
656#if defined AD_SENSITIVITY || defined I4DVAR_ANA_SENSITIVITY || \
657 defined opt_observations || defined sensitivity_4dvar || \
664 clima(ng) % zeta_ads(i,j) = inival
665 clima(ng) % zeta_adsG(i,j,1) = inival
666 clima(ng) % zeta_adsG(i,j,2) = inival
668 clima(ng) % ubar_ads(i,j) = inival
669 clima(ng) % vbar_ads(i,j) = inival
670 clima(ng) % ubar_adsG(i,j,1) = inival
671 clima(ng) % ubar_adsG(i,j,2) = inival
672 clima(ng) % vbar_adsG(i,j,1) = inival
673 clima(ng) % vbar_adsG(i,j,2) = inival
680 clima(ng) % u_ads(i,j,k) = inival
681 clima(ng) % v_ads(i,j,k) = inival
682 clima(ng) % u_adsG(i,j,k,1) = inival
683 clima(ng) % u_adsG(i,j,k,2) = inival
684 clima(ng) % v_adsG(i,j,k,1) = inival
685 clima(ng) % v_adsG(i,j,k,2) = inival
691 clima(ng) % wvel_ads(i,j,k) = inival
692 clima(ng) % wvel_adsG(i,j,k,1) = inival
693 clima(ng) % wvel_adsG(i,j,k,2) = inival
700 clima(ng) % t_ads(i,j,k,itrc) = inival
701 clima(ng) % t_adsG(i,j,k,1,itrc) = inival
702 clima(ng) % t_adsG(i,j,k,2,itrc) = inival