- Timestamp:
- 2020-11-27T17:26:33+01:00 (4 years ago)
- Location:
- NEMO/branches/2020/tickets_icb_1900
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2020/tickets_icb_1900
- Property svn:externals
-
NEMO/branches/2020/tickets_icb_1900/src/OCE/USR/usrdef_nam.F90
r13216 r13899 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.