Changeset 8246 for branches/UKMO/AMM15_v3_6_STABLE_package_debug/NEMOGCM/NEMO/OPA_SRC/DIA/dia25h.F90
- Timestamp:
- 2017-06-29T16:04:23+02:00 (7 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/UKMO/AMM15_v3_6_STABLE_package_debug/NEMOGCM/NEMO/OPA_SRC/DIA/dia25h.F90
r8059 r8246 67 67 !!---------------------------------------------------------------------- 68 68 ! 69 WRITE(lwp) 'NIALL' 69 70 REWIND ( numnam_ref ) ! Read Namelist nam_dia25h in reference namelist : 25hour mean diagnostics 70 71 READ ( numnam_ref, nam_dia25h, IOSTAT=ios, ERR= 901 ) 71 72 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nam_dia25h in reference namelist', lwp ) 72 73 WRITE(lwp) 'NIALL' 73 74 REWIND( numnam_cfg ) ! Namelist nam_dia25h in configuration namelist 25hour diagnostics 74 75 READ ( numnam_cfg, nam_dia25h, IOSTAT = ios, ERR = 902 ) 76 WRITE(lwp,ios) 'NIALL' 75 77 902 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nam_dia25h in configuration namelist', lwp ) 76 78 IF(lwm) WRITE ( numond, nam_dia25h ) 77 79 WRITE(lwp) 'NIALL' 78 80 IF(lwp) THEN ! Control print 79 81 WRITE(numout,*)
Note: See TracChangeset
for help on using the changeset viewer.