- Timestamp:
- 2013-11-04T12:51:55+01:00 (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2013/dev_LOCEAN_2013/NEMOGCM/NEMO/OPA_SRC/ZDF/zdfini.F90
r3680 r4147 51 51 !!---------------------------------------------------------------------- 52 52 INTEGER :: ioptio ! temporary scalar 53 INTEGER :: ios 53 54 !! 54 55 NAMELIST/namzdf/ rn_avm0, rn_avt0, nn_avb, nn_havtb, ln_zdfexp, nn_zdfexp, & … … 56 57 !!---------------------------------------------------------------------- 57 58 58 REWIND( numnam ) !* Read namzdf namelist : vertical mixing parameters 59 READ ( numnam, namzdf ) 59 REWIND( numnam_ref ) ! Namelist namzdf in reference namelist : Vertical mixing parameters 60 READ ( numnam_ref, namzdf, IOSTAT = ios, ERR = 901) 61 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namzdf in reference namelist', lwp ) 62 63 REWIND( numnam_cfg ) ! Namelist namzdf in reference namelist : Vertical mixing parameters 64 READ ( numnam_cfg, namzdf, IOSTAT = ios, ERR = 902 ) 65 902 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namzdf in configuration namelist', lwp ) 66 WRITE ( numond, namzdf ) 60 67 61 68 IF(lwp) THEN !* Parameter print
Note: See TracChangeset
for help on using the changeset viewer.