Changeset 14976 for NEMO/trunk/tests/VORTEX/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/VORTEX/MY_SRC/usrdef_nam.F90
r14433 r14976 60 60 ! 61 61 INTEGER :: ios ! Local integer 62 INTEGER :: ighost_n, ighost_s, ighost_w, ighost_e 62 63 REAL(wp):: zlx, zly, zh ! Local scalars 63 64 !! … … 83 84 kk_cfg = nINT( rn_dx ) 84 85 ! 86 #if defined key_agrif 85 87 IF( Agrif_Root() ) THEN ! Global Domain size: VORTEX global domain is 1800 km x 1800 Km x 5000 m 88 #endif 86 89 kpi = NINT( 1800.e3 / rn_dx ) + 3 87 90 kpj = NINT( 1800.e3 / rn_dy ) + 3 91 #if defined key_agrif 88 92 ELSE ! Global Domain size: add nbghostcells + 1 "land" point on each side 89 kpi = nbcellsx + 2 * ( nbghostcells + 1 ) 90 kpj = nbcellsy + 2 * ( nbghostcells + 1 ) 91 !!$ kpi = nbcellsx + nbghostcells_x + nbghostcells_x + 2 92 !!$ 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 + 2 * ( nbghostcells + 1 ) 104 ! kpj = nbcellsy + 2 * ( nbghostcells + 1 ) 105 kpi = nbcellsx + ighost_w + ighost_e 106 kpj = nbcellsy + ighost_s + ighost_n 93 107 ENDIF 108 #endif 94 109 kpk = NINT( 5000._wp / rn_dz ) + 1 95 110 !
Note: See TracChangeset
for help on using the changeset viewer.