Changeset 9169 for branches/2017/dev_merge_2017/NEMOGCM/NEMO/NST_SRC
- Timestamp:
- 2017-12-26T17:32:56+01:00 (7 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2017/dev_merge_2017/NEMOGCM/NEMO/NST_SRC/agrif_user.F90
r9167 r9169 24 24 ! 25 25 IF( .NOT. Agrif_Root() ) THEN 26 jpni = Agrif_Parent(jpni)27 jpnj = Agrif_Parent(jpnj)26 jpni = Agrif_Parent(jpni) 27 jpnj = Agrif_Parent(jpnj) 28 28 jpnij = Agrif_Parent(jpnij) 29 jpiglo 30 jpjglo 31 jpi 32 jpj 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 33 ! JC: change to allow for different vertical levels 34 34 ! jpk is already set … … 36 36 ! hold parent grid vertical levels number (set earlier) 37 37 ! jpk = jpkglo 38 jpim1 39 jpjm1 40 jpkm1 41 jpij 42 nperio 43 jperio 38 jpim1 = jpi-1 39 jpjm1 = jpj-1 40 jpkm1 = MAX( 1, jpk-1 ) 41 jpij = jpi*jpj 42 nperio = 0 43 jperio = 0 44 44 ENDIF 45 45 ! … … 780 780 REWIND( numnam_ref ) ! Namelist namagrif in reference namelist : AGRIF zoom 781 781 READ ( numnam_ref, namagrif, IOSTAT = ios, ERR = 901) 782 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namagrif in reference namelist', lwp ) 783 782 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namagrif in reference namelist', lwp ) 784 783 REWIND( numnam_cfg ) ! Namelist namagrif in configuration namelist : AGRIF zoom 785 784 READ ( numnam_cfg, namagrif, IOSTAT = ios, ERR = 902 ) 786 902 IF( ios /= 0 )CALL ctl_nam ( ios , 'namagrif in configuration namelist', lwp )785 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namagrif in configuration namelist', lwp ) 787 786 IF(lwm) WRITE ( numond, namagrif ) 788 787 ! … … 796 795 WRITE(numout,*) ' use special values for dynamics ln_spc_dyn = ', ln_spc_dyn 797 796 WRITE(numout,*) ' check bathymetry ln_chk_bathy = ', ln_chk_bathy 798 WRITE(numout,*)799 797 ENDIF 800 798 !
Note: See TracChangeset
for help on using the changeset viewer.