- Timestamp:
- 2018-03-30T17:37:02+02:00 (6 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2017/dev_merge_2017/NEMOGCM/NEMO/NST_SRC/agrif_user.F90
r9169 r9449 19 19 USE dom_oce 20 20 USE nemogcm 21 USE mppini 21 22 !! 22 23 IMPLICIT NONE … … 24 25 ! 25 26 IF( .NOT. Agrif_Root() ) THEN 26 jpni = Agrif_Parent(jpni) 27 jpnj = Agrif_Parent(jpnj) 28 jpnij = Agrif_Parent(jpnij) 29 jpiglo = nbcellsx + 2 + 2*nbghostcells 30 jpjglo = nbcellsy + 2 + 2*nbghostcells 31 jpi = ( jpiglo-2*nn_hls + (jpni-1+0) ) / jpni + 2*nn_hls 32 jpj = ( jpjglo-2*nn_hls + (jpnj-1+0) ) / jpnj + 2*nn_hls 33 ! JC: change to allow for different vertical levels 34 ! jpk is already set 35 ! keep it jpk possibly different from jpkglo which 36 ! hold parent grid vertical levels number (set earlier) 37 ! jpk = jpkglo 38 jpim1 = jpi-1 39 jpjm1 = jpj-1 40 jpkm1 = MAX( 1, jpk-1 ) 41 jpij = jpi*jpj 42 nperio = 0 43 jperio = 0 27 ! no more static variables 28 !!$! JC: change to allow for different vertical levels 29 !!$! jpk is already set 30 !!$! keep it jpk possibly different from jpkglo which 31 !!$! hold parent grid vertical levels number (set earlier) 32 !!$! jpk = jpkglo 44 33 ENDIF 45 34 ! … … 63 52 !!---------------------------------------------------------------------- 64 53 ! 65 !!gm I think this is now useless ... nn_cfg & cn_cfg are set to -999999 and "UNKNOWN"66 !!gm when reading the AGRIF domain configuration file67 IF( cn_cfg == 'orca' ) THEN68 IF ( nn_cfg == 2 .OR. nn_cfg == 025 .OR. nn_cfg == 05 .OR. nn_cfg == 4 ) THEN69 nn_cfg = -1 ! set special value for nn_cfg on fine grids70 cn_cfg = "default"71 ENDIF72 ENDIF73 ! !* Specific fine grid Initializations74 ln_tradmp = .FALSE. ! no tracer damping on fine grids75 !76 ln_bdy = .FALSE. ! no open boundary on fine grids77 78 54 CALL nemo_init !* Initializations of each fine grid 79 55
Note: See TracChangeset
for help on using the changeset viewer.