- Timestamp:
- 2019-11-06T17:01:36+01:00 (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2019/fix_sn_cfctl_ticket2328/src/SAS/daymod.F90
r10068 r11869 275 275 IF( nsec_week > 7*nsecd ) nsec_week = ndt05 ! New week 276 276 277 IF(ln_ctl ) THEN277 IF(ln_ctl .OR. sn_cfctl%l_mppout) THEN 278 278 WRITE(charout,FMT="('kt =', I4,' d/m/y =',I2,I2,I4)") kt, nday, nmonth, nyear 279 279 CALL prt_ctl_info(charout)
Note: See TracChangeset
for help on using the changeset viewer.