Changeset 2251 for CONFIG/UNIFORM/v6/IPSLCM6/SOURCES/NEMO/sbcmod.F90

Timestamp:

05/26/14 12:41:58 (10 years ago)

Author:

aclsce

Message:

Modifed IPSLCM6 NEMO sources to fit with NEMO revision 4624

File:

• CONFIG/UNIFORM/v6/IPSLCM6/SOURCES/NEMO/sbcmod.F90 (modified) (3 diffs)

CONFIG/UNIFORM/v6/IPSLCM6/SOURCES/NEMO/sbcmod.F90

@@ -63 +63 @@
    !!----------------------------------------------------------------------
    !! NEMO/OPA 4.0 , NEMO-consortium (2011) 
-   !! $Id: sbcmod.F90 4230 2013-11-18 11:57:11Z cetlod $
+   !! $Id: sbcmod.F90 4624 2014-04-28 12:09:03Z acc $
    !! Software governed by the CeCILL licence     (NEMOGCM/NEMO_CeCILL.txt)
    !!----------------------------------------------------------------------
@@ -101 +101 @@
       READ  ( numnam_cfg, namsbc, IOSTAT = ios, ERR = 902 )
 902   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namsbc in configuration namelist', lwp )
-      WRITE ( numond, namsbc )
+      IF(lwm) WRITE ( numond, namsbc )
 
       !                          ! overwrite namelist parameter using CPP key information
@@ -153 +153 @@
       IF(lwp) WRITE(numout,*) '              Fluxes distributed linearly over ice categories ln_iceflx_linear = ', ln_iceflx_linear
 #endif
+      !
+#if defined key_top && ! defined key_offline
+      ltrcdm2dc = (ln_dm2dc .AND. ln_blk_core .AND. nn_ice==2)
+      IF( ltrcdm2dc )THEN
+         IF(lwp)THEN
+            WRITE(numout,*)"analytical diurnal cycle, core bulk formulation and LIM2 use: "
+            WRITE(numout,*)"Diurnal cycle on physics but not in passive tracers"
+         ENDIF
+      ENDIF
+#else 
+      ltrcdm2dc =  .FALSE.
+#endif
+
       !
       !                              ! allocate sbc arrays