Changeset 223 for trunk/NEMO/OPA_SRC/DOM/domain.F90

Timestamp:

2005-03-18T19:20:33+01:00 (19 years ago)

Author:

opalod

Message:

CT : BUGFIX161 : correct the error when running in MPP with sea-ice and with nfice and nfbulk parameters different

File:

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

trunk/NEMO/OPA_SRC/DOM/domain.F90

@@ -295 +295 @@
          WRITE(numout,*) '           maximum time step on tracers   rdtmax    = ', rdtmax
          WRITE(numout,*) '           depth variation tracer step    rdth      = ', rdth
-         IF( lk_ice_lim ) THEN
-             IF(lwp)WRITE(numout,*) '           ice model coupling frequency      nfice  = ', nfice
+      ENDIF
+
+      IF( lk_ice_lim ) THEN
+         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,*) ' '
+            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'
-         IF(lwp)WRITE(numout,*) '           flag closed sea or not           nclosea = ', nclosea
+         IF(lwp) WRITE(numout,*) '           bulk computation frequency       nfbulk  = ', nfbulk, ' = nfice if ice model used'
+         IF(lwp) WRITE(numout,*) '           flag closed sea or not           nclosea = ', nclosea
       ENDIF