Changeset 4607

Timestamp:

2014-03-31T12:03:13+02:00 (10 years ago)

Author:

cbricaud

Message:

solve ticket 1239

Location:

trunk/NEMOGCM/NEMO

Files:

• LIM_SRC_2/iceini_2.F90 (modified) (2 diffs)
• OPA_SRC/SBC/sbcmod.F90 (modified) (1 diff)
• TOP_SRC/trcini.F90 (modified) (1 diff)

trunk/NEMOGCM/NEMO/LIM_SRC_2/iceini_2.F90

@@ -59 +59 @@
          WRITE(numout,*) '~~~~~~~~~~~   '
       ENDIF
+      !                                
+      ! When Diurnal cycle, core bulk and LIM2  are activated, 
+      ! a daily mean qsr is computed for tracer/biogeochemistery model                                 !
+      IF( ltrcdm2dc )THEN  ; ltrcdm2dc_ice = .TRUE.
+      ELSE                 ; ltrcdm2dc_ice = .FALSE.
+      ENDIF
       !                                ! Allocate the ice arrays
       ierr =        ice_alloc_2    ()       ! ice variables
@@ -77 +83 @@
       CALL ctl_opn( numnam_ice_cfg, 'namelist_ice_cfg',    'OLD',     'FORMATTED', 'SEQUENTIAL', -1, numout, lwp )
       CALL ctl_opn( numoni,         'output.namelist.ice', 'UNKNOWN', 'FORMATTED', 'SEQUENTIAL', -1, numout, lwp, 1 )
-
-      ! When Diurnal cycle, core bulk and LIM2  are activated, 
-      ! a daily mean qsr is computed for tracer/biogeochemistery model                                 !
-      IF( ltrcdm2dc ) ltrcdm2dc_ice = .TRUE.
 
       !                                ! Open the namelist file 

trunk/NEMOGCM/NEMO/OPA_SRC/SBC/sbcmod.F90

@@ -154 +154 @@
 #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
       IF( sbc_oce_alloc() /= 0 )   CALL ctl_stop( 'STOP', 'sbc_init : unable to allocate sbc_oce arrays' )

trunk/NEMOGCM/NEMO/TOP_SRC/trcini.F90

@@ -71 +71 @@
       CALL top_alloc()              ! allocate TOP arrays
 
-      IF( ln_dm2dc .AND. ln_blk_core .AND. nn_ice==2 )THEN
-         ! When Diurnal cycle, core bulk and LIM2  are activated, 
-         ! a daily mean qsr is computed for tracer/biogeochemistery model 
-         CALL ctl_warn( ' Diurnal cycle on physics but not in PISCES or LOBSTER ' )
-         ltrcdm2dc     = .TRUE.
-      ENDIF
+#if defined key_offline
+      ltrcdm2dc = .FALSE.
+#endif
+
+      IF( ltrcdm2dc )CALL ctl_warn( ' Diurnal cycle on physics but not in PISCES or LOBSTER ' )
 
       IF( nn_cla == 1 )   &