Changeset 2187 for branches/dev_r2174_DCY/NEMO/OPA_SRC/SBC/sbcflx.F90

Timestamp:

2010-10-07T17:44:48+02:00 (14 years ago)

Author:

smasson

Message:

add diurna cycle in dev_r2174_DCY, see ticket:730

File:

• branches/dev_r2174_DCY/NEMO/OPA_SRC/SBC/sbcflx.F90 (modified) (3 diffs)

branches/dev_r2174_DCY/NEMO/OPA_SRC/SBC/sbcflx.F90

@@ -29 +29 @@
    USE sbc_oce         ! Surface boundary condition: ocean fields
    USE phycst          ! physical constants
+   USE sbcdcy          ! diurnal cycle on qsr
    USE fldread         ! read input fields
    USE iom             ! IOM library
@@ -115 +116 @@
          READ   ( numnam, namsbc_flx ) 
 
+         ! do we plan to use ln_dm2dc with non-daily forcing?
+         IF( ln_dm2dc .AND. sn_qsr%nfreqh /= 24 )   &
+            &   CALL ctl_stop( 'sbc_blk_core: ln_dm2dc can be activated only with daily short-wave forcing' ) 
+
          ! store namelist information in an array
          slf_i(jp_utau) = sn_utau   ;   slf_i(jp_vtau) = sn_vtau
@@ -138 +143 @@
       CALL fld_read( kt, nn_fsbc, sf )           ! Read input fields and provides the
       !                                          ! input fields at the current time-step
+      IF( ln_dm2dc )   CALL sbc_dcy( kt , sf(jp_qsr)%fnow )   ! modify sf(jp_qsr)%fnow for diurnal cycle
 
       IF( MOD( kt-1, nn_fsbc ) == 0 ) THEN