Changeset 5222 for branches/2015/dev_r5204_CNRS_PISCES_dcy/NEMOGCM/NEMO/OPA_SRC/SBC/sbcmod.F90

Timestamp:

2015-04-17T12:24:12+02:00 (6 years ago)

Author:

cetlod

Message:

dev_r5204_CNRS_PISCES_dcy: some improvments

File:

• branches/2015/dev_r5204_CNRS_PISCES_dcy/NEMOGCM/NEMO/OPA_SRC/SBC/sbcmod.F90 (modified) (2 diffs)

branches/2015/dev_r5204_CNRS_PISCES_dcy/NEMOGCM/NEMO/OPA_SRC/SBC/sbcmod.F90

@@ -152 +152 @@
       END SELECT
       !
-      IF( ln_dm2dc .AND. lk_top  )  THEN   
-         l_trcdm2dc = .TRUE.
-         IF( lwp ) THEN
-            WRITE(numout,*) "In case of diurnal cycle coupled with passive tracers"
-            WRITE(numout,*) "Computation of a daily mean shortwave for some biogeochemical models"
-         ENDIF
-      ELSE             
-         l_trcdm2dc = .FALSE.
-      ENDIF
-
       !                              ! allocate sbc arrays
       IF( sbc_oce_alloc() /= 0 )   CALL ctl_stop( 'STOP', 'sbc_init : unable to allocate sbc_oce arrays' )
@@ -276 +266 @@
       !
       IF( nsbc   == jp_cpl )   CALL sbc_cpl_init (nn_ice)      ! OASIS initialisation. must be done before first time step
+      
+      l_trcdm2dc == lk_top .AND. ( ln_dm2dc .OR. ( lk_cpl .AND. n_cpl_qsr /= 1 ) )  
+      IF( l_trcdm2dc .AND. lwp ) THEN
+            WRITE(numout,*) "Coupling with passive tracers and used of diurnal cycle !!!!! "
+            WRITE(numout,*) "Computation of a daily mean shortwave for some biogeochemical models"
+         ENDIF
+      ENDIF
 
    END SUBROUTINE sbc_init