Changeset 4306 for branches/2013/dev_MERGE_2013/NEMOGCM/NEMO/TOP_SRC/trcini.F90

Timestamp:

2013-11-21T15:59:57+01:00 (10 years ago)

Author:

cetlod

Message:

dev_MERGE_2013 : merge in the solar mean flux branch from MERCATOR, see ticket #1187

File:

• branches/2013/dev_MERGE_2013/NEMOGCM/NEMO/TOP_SRC/trcini.F90 (modified) (2 diffs)

branches/2013/dev_MERGE_2013/NEMOGCM/NEMO/TOP_SRC/trcini.F90

@@ -28 +28 @@
    USE zpshde          ! partial step: hor. derivative   (zps_hde routine)
    USE prtctl_trc      ! Print control passive tracers (prt_ctl_trc_init routine)
-   USE trcsub       ! variables to substep passive tracers
-   
+   USE trcsub          ! variables to substep passive tracers
+   USE lib_mpp         ! distribued memory computing library
+   USE sbc_oce
+ 
    IMPLICIT NONE
    PRIVATE
@@ -69 +71 @@
       CALL top_alloc()              ! allocate TOP arrays
 
-      IF( ln_dm2dc .AND. lk_pisces )    &
-         &  CALL ctl_stop( ' The diurnal cycle is not compatible with PISCES ' )
+      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( nn_cla == 1 )   &