Changeset 112

Timestamp:

2004-06-28T16:36:55+02:00 (20 years ago)

Author:

opalod

Message:

CT : UPDATE071 : Add a warning when nfice is NOT a multiple of the number of time steps in a day

File:

• trunk/NEMO/OPA_SRC/DOM/domain.F90 (modified) (1 diff)

trunk/NEMO/OPA_SRC/DOM/domain.F90

@@ -297 +297 @@
              IF(lwp)WRITE(numout,*) '           ice model coupling frequency      nfice  = ', nfice
             nfbulk = nfice
+            IF ( MOD( rday, nfice*rdt ) /= 0) THEN 
+               IF(lwp)WRITE(numout,*) ' '
+               IF(lwp)WRITE(numout,*) 'W A R N I N G :  nfice is NOT a multiple of the number of time steps in a day'
+               IF(lwp)WRITE(numout,*) ' '
+            ENDIF
          ENDIF
          IF(lwp)WRITE(numout,*) '           bulk computation frequency       nfbulk  = ', nfbulk, ' = nfice if ice model used'