- Timestamp:
- 2017-12-15T18:56:13+01:00 (7 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2017/dev_merge_2017/NEMOGCM/NEMO/OPA_SRC/ZDF/zdfric.F90
r9019 r9104 28 28 USE in_out_manager ! I/O manager 29 29 USE iom ! I/O manager library 30 USE timing ! Timing31 30 USE lib_fortran ! Fortran utilities (allows no signed zero when 'key_nosignedzero' defined) 32 31 … … 72 71 !! ** Action : increase by 1 the nstop flag is setting problem encounter 73 72 !!---------------------------------------------------------------------- 74 INTEGER :: ji, jj, jk ! dummy loop indices75 INTEGER :: ios ! Local integer output status for namelist read73 INTEGER :: ji, jj, jk ! dummy loop indices 74 INTEGER :: ios ! Local integer output status for namelist read 76 75 !! 77 76 NAMELIST/namzdf_ric/ rn_avmri, rn_alp , nn_ric , rn_ekmfc, & … … 85 84 REWIND( numnam_cfg ) ! Namelist namzdf_ric in configuration namelist : Vertical diffusion Kz depends on Richardson number 86 85 READ ( numnam_cfg, namzdf_ric, IOSTAT = ios, ERR = 902 ) 87 902 IF( ios /=0 ) CALL ctl_nam ( ios , 'namzdf_ric in configuration namelist', lwp )86 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namzdf_ric in configuration namelist', lwp ) 88 87 IF(lwm) WRITE ( numond, namzdf_ric ) 89 88 ! … … 157 156 REAL(wp), DIMENSION(jpi,jpj) :: zh_ekm ! 2D workspace 158 157 !!---------------------------------------------------------------------- 159 !160 IF( ln_timing ) CALL timing_start('zdf_ric')161 158 ! 162 159 ! !== avm and avt = F(Richardson number) ==! … … 196 193 END DO 197 194 ENDIF 198 !199 IF( ln_timing ) CALL timing_stop('zdf_ric')200 195 ! 201 196 END SUBROUTINE zdf_ric
Note: See TracChangeset
for help on using the changeset viewer.