Changeset 13286 for NEMO/trunk/src/OCE/USR/usrdef_nam.F90
- Timestamp:
- 2020-07-09T17:48:29+02:00 (4 years ago)
- Location:
- NEMO/trunk
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/trunk
- Property svn:externals
-
old new 2 2 ^/utils/build/makenemo@HEAD makenemo 3 3 ^/utils/build/mk@HEAD mk 4 ^/utils/tools /@HEADtools4 ^/utils/tools@HEAD tools 5 5 ^/vendors/AGRIF/dev_r12970_AGRIF_CMEMS ext/AGRIF 6 6 ^/vendors/FCM@HEAD ext/FCM … … 8 8 9 9 # SETTE 10 ^/utils/CI/ sette@12931sette10 ^/utils/CI/r12931_sette_ticket2366@HEAD sette
-
- Property svn:externals
-
NEMO/trunk/src/OCE/USR/usrdef_nam.F90
r13216 r13286 14 14 !! usr_def_hgr : initialize the horizontal mesh 15 15 !!---------------------------------------------------------------------- 16 USE dom_oce , ONLY: nimpp, njmpp ! ocean space and time domain16 USE dom_oce 17 17 USE par_oce ! ocean space and time domain 18 18 USE phycst ! physical constants … … 70 70 kk_cfg = nn_GYRE 71 71 ! 72 kpi = 30 * nn_GYRE + 2 ! Global Domain size72 kpi = 30 * nn_GYRE + 2 ! 73 73 kpj = 20 * nn_GYRE + 2 74 74 #if defined key_agrif 75 IF( .NOT. Agrif_Root() ) THEN 76 kpi = nbcellsx + 2 + 2*nbghostcells_x 77 kpj = nbcellsy + 2 + 2*nbghostcells_y_s 75 IF( .NOT.Agrif_Root() ) THEN ! Global Domain size: add 1 land point on each side 76 kpi = nbcellsx + 2 * ( nbghostcells + 1 ) 77 kpj = nbcellsy + 2 * ( nbghostcells + 1 ) 78 !!$ kpi = nbcellsx + nbghostcells_x + nbghostcells_x + 2 79 !!$ kpj = nbcellsy + nbghostcells_y_s + nbghostcells_y_n + 2 78 80 ENDIF 79 81 #endif … … 93 95 IF( Agrif_Root() ) THEN 94 96 #endif 95 WRITE(numout,*) ' jpiglo = 30*nn_GYRE+2 jpiglo = ', kpi96 WRITE(numout,*) ' jpjglo = 20*nn_GYRE+2 jpjglo = ', kpj97 WRITE(numout,*) ' Ni0glo = 30*nn_GYRE Ni0glo = ', kpi 98 WRITE(numout,*) ' Nj0glo = 20*nn_GYRE Nj0glo = ', kpj 97 99 #if defined key_agrif 98 100 ENDIF 99 101 #endif 100 WRITE(numout,*) ' number of model levels 102 WRITE(numout,*) ' number of model levels jpkglo = ', kpk 101 103 WRITE(numout,*) ' ' 102 WRITE(numout,*) ' Lateral b.c. of the global domain set to closed 104 WRITE(numout,*) ' Lateral b.c. of the global domain set to closed jperio = ', kperio 103 105 ENDIF 104 106 !
Note: See TracChangeset
for help on using the changeset viewer.