Changeset 14976 for NEMO/trunk/tests/DOME/MY_SRC/usrdef_nam.F90
- Timestamp:
- 2021-06-11T11:14:27+02:00 (3 years ago)
- Location:
- NEMO/trunk
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/trunk
- Property svn:externals
-
old new 3 3 ^/utils/build/mk@HEAD mk 4 4 ^/utils/tools@HEAD tools 5 ^/vendors/AGRIF/dev @HEAD ext/AGRIF5 ^/vendors/AGRIF/dev_r14608_AGRIF_domcfg@HEAD ext/AGRIF 6 6 ^/vendors/FCM@HEAD ext/FCM 7 7 ^/vendors/IOIPSL@HEAD ext/IOIPSL
-
- Property svn:externals
-
NEMO/trunk/tests/DOME/MY_SRC/usrdef_nam.F90
r14433 r14976 60 60 ! 61 61 INTEGER :: ios ! Local integer 62 INTEGER :: ighost_w, ighost_e, ighost_s, ighost_n 62 63 REAL(wp):: zlx, zly, zh ! Local scalars 63 64 !! … … 74 75 rn_dx = Agrif_Parent(rn_dx)/Agrif_Rhox() 75 76 rn_dy = Agrif_Parent(rn_dy)/Agrif_Rhoy() 76 rn_dz = Agrif_Parent(rn_dz)77 77 rn_f0 = Agrif_Parent(rn_f0) 78 78 ENDIF … … 84 84 kk_cfg = nINT( rn_dx ) 85 85 ! 86 #if defined key_agrif 86 87 IF( Agrif_Root() ) THEN ! Global Domain size: DOME global domain is 2000 km x 850 Km x 3600 m 88 #endif 87 89 kpi = NINT( 2000.e3 / rn_dx ) + 2 88 90 kpj = NINT( 850.e3 / rn_dy ) + 2 + 1 91 #if defined key_agrif 89 92 ELSE ! Global Domain size: add nbghostcells + 1 "land" point on each side 90 kpi = nbcellsx + 2 * ( nbghostcells + 1 ) 91 kpj = nbcellsy + 2 * ( nbghostcells + 1 ) 92 !!$ kpi = nbcellsx + nbghostcells_x + nbghostcells_x + 2 93 !!$ kpj = nbcellsy + nbghostcells_y_s + nbghostcells_y_n + 2 93 ! At this stage, child ghosts have not been set 94 ighost_w = nbghostcells 95 ighost_e = nbghostcells 96 ighost_s = nbghostcells 97 ighost_n = nbghostcells 98 99 IF ( Agrif_Ix() == 1 ) ighost_w = 1 100 IF ( Agrif_Ix() + nbcellsx/AGRIF_Irhox() == Agrif_Parent(Ni0glo)-1 ) ighost_e = 1 101 IF ( Agrif_Iy() == 1 ) ighost_s = 1 102 IF ( Agrif_Iy() + nbcellsy/AGRIF_Irhoy() == Agrif_Parent(Nj0glo)-1 ) ighost_n = 1 103 kpi = nbcellsx + ighost_w + ighost_e 104 kpj = nbcellsy + ighost_s + ighost_n 105 !! JC: number of ghosts are unknown at this stage ! 106 !!$ kpi = nbcellsx + nbghostcells_x + nbghostcells_x 107 !!$ kpj = nbcellsy + nbghostcells_y_s + nbghostcells_y_n 94 108 ENDIF 109 #endif 95 110 kpk = NINT( 3600._wp / rn_dz ) + 1 96 111 !
Note: See TracChangeset
for help on using the changeset viewer.