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

Timestamp:

2007-10-16T16:59:56+02:00 (17 years ago)

Author:

ctlod

Message:

get back to the nemo_v2_3 version for trunk

File:

• trunk/NEMO/OPA_SRC/DOM/domain.F90 (modified) (5 diffs, 1 prop)

trunk/NEMO/OPA_SRC/DOM/domain.F90

@@ -13 +13 @@
    USE oce             ! 
    USE dom_oce         ! ocean space and time domain
+   USE phycst          ! physical constants
+   USE in_out_manager  ! I/O manager
    USE ice_oce         ! ice variables
-   USE sbc_oce         ! surface boundary condition: ocean
-   USE phycst          ! physical constants
+   USE blk_oce         ! bulk variables
+   USE flxrnf          ! runoffs
    USE daymod          ! calendar
-   USE in_out_manager  ! I/O manager
    USE lib_mpp         ! distributed memory computing library
 
@@ -38 +39 @@
    !!----------------------------------------------------------------------
    !!   OPA 9.0 , LOCEAN-IPSL (2005) 
-   !! $Id$
+   !! $Header$ 
    !! This software is governed by the CeCILL licence see modipsl/doc/NEMO_CeCILL.txt 
    !!----------------------------------------------------------------------
@@ -143 +144 @@
       NAMELIST/namrun/ no    , cexper   , ln_rstart , nrstdt , nit000,         &
          &             nitend, ndate0   , nleapy   , ninist , nstock,          &
-         &             nwrite, ln_dimgnnn
+         &             nwrite, nrunoff  , ln_dimgnnn
 
       NAMELIST/namdom/ ntopo , e3zps_min, e3zps_rat, ngrid  , nmsh  ,   &
          &             nacc  , atfp     , rdt      , rdtmin , rdtmax,   &
-         &             rdth  , rdtbt    , nclosea
+         &             rdth  , rdtbt    , nfice    , nfbulk , nclosea
       NAMELIST/namcla/ n_cla
       !!----------------------------------------------------------------------
@@ -174 +175 @@
          WRITE(numout,*) '           frequency of restart file       nstock    = ', nstock
          WRITE(numout,*) '           frequency of output file        nwrite    = ', nwrite
+         WRITE(numout,*) '           runoff option                   nrunoff   = ', nrunoff
          WRITE(numout,*) '           multi file dimgout           ln_dimgnnn   = ', ln_dimgnnn
       ENDIF
@@ -257 +259 @@
       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,*) ' '
+         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
+      ENDIF
+
       ! Default values
       n_cla = 0