Changeset 2217

Timestamp:

2010-10-12T13:37:01+02:00 (14 years ago)

Author:

cetlod

Message:

Checking the compatibility of the diurnal cycle with PISCES or LOBSTER

Location:

branches/DEV_r2106_LOCEAN2010/NEMO/TOP_SRC

Files:

• oce_trc.F90 (modified) (1 diff)
• trcini.F90 (modified) (1 diff)

branches/DEV_r2106_LOCEAN2010/NEMO/TOP_SRC/oce_trc.F90

@@ -201 +201 @@
    USE sbc_oce , ONLY :   emps       =>    emps       !: freshwater budget: concentration/dillution   [Kg/m2/s]
    USE sbc_oce , ONLY :   rnf        =>    rnf        !: river runoff   [Kg/m2/s]
+   USE sbc_oce , ONLY :   ln_dm2dc   =>    ln_dm2dc   !: Daily mean to Diurnal Cycle short wave (qsr) 
    USE sbc_oce , ONLY :   ln_rnf     =>    ln_rnf     !: runoffs / runoff mouths
    USE sbc_oce , ONLY :   fr_i       =>    fr_i       !: ice fraction (between 0 to 1)

branches/DEV_r2106_LOCEAN2010/NEMO/TOP_SRC/trcini.F90

@@ -92 +92 @@
       ENDIF
 
+      IF( ln_dm2dc .AND. ( lk_pisces .OR. lk_lobster ) )    &
+      &       CALL ctl_stop( ' The diurnal cycle is not compatible with PISCES or LOBSTER  ' )
+
       IF( lk_lobster ) THEN   ;   CALL trc_ini_lobster      ! LOBSTER bio-model
       ELSE                    ;   IF(lwp) WRITE(numout,*) '          LOBSTER not used'