Changeset 2216 for branches/dev_r2174_DCY/NEMO/OPA_SRC/SBC/sbcmod.F90

Timestamp:

2010-10-12T13:36:25+02:00 (14 years ago)

Author:

smasson

Message:

diurnal cycle in coupled mode in dev_r2174_DCY, see ticket:730

File:

• branches/dev_r2174_DCY/NEMO/OPA_SRC/SBC/sbcmod.F90 (modified) (2 diffs)

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

@@ -18 +18 @@
    USE sbc_oce          ! Surface boundary condition: ocean fields
    USE sbc_ice          ! Surface boundary condition: ice fields
+   USE sbcdcy           ! surface boundary condition: diurnal cycle
    USE sbcssm           ! surface boundary condition: sea-surface mean variables
    USE sbcana           ! surface boundary condition: analytical formulation
@@ -133 +134 @@
          &   CALL ctl_stop( 'sea-ice model requires a bulk formulation or coupled configuration' )
       
+      IF( ln_dm2dc )   nday_qsr = -1   ! initialisation flag
+
       IF( ln_dm2dc .AND. .NOT.( ln_flx .OR. ln_blk_core ) )   &
          &   CALL ctl_stop( 'diurnal cycle into qsr field from daily values requires a flux or core-bulk formulation' )