Changeset 2216 for branches/dev_r2174_DCY/NEMO/OPA_SRC/SBC/sbccpl.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/sbccpl.F90 (modified) (3 diffs)

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

@@ -23 +23 @@
    USE sbc_oce         ! Surface boundary condition: ocean fields
    USE sbc_ice         ! Surface boundary condition: ice fields
+   USE sbcdcy          ! surface boundary condition: diurnal cycle
    USE phycst          ! physical constants
 #if defined key_lim3
@@ -728 +729 @@
          IF( srcv(jpr_qsroce)%laction )   qsr(:,:) = frcv(:,:,jpr_qsroce) 
          IF( srcv(jpr_qsrmix)%laction )   qsr(:,:) = frcv(:,:,jpr_qsrmix)
+         IF( ln_dm2dc )   qsr(:,:) = sbc_dcy( qsr )                           ! modify qsr to include the diurnal cycle
          !
          !                                                       ! total freshwater fluxes over the ocean (emp, emps)
@@ -1159 +1161 @@
             &                     + palbi         (:,:,1) * zicefr(:,:,1) ) )
       END SELECT
+      IF( ln_dm2dc ) THEN   ! modify qsr to include the diurnal cycle
+         pqsr_tot(:,:  ) = sbc_dcy( pqsr_tot(:,:  ) )
+         pqsr_ice(:,:,1) = sbc_dcy( pqsr_ice(:,:,1) )
+      ENDIF
 
       SELECT CASE( TRIM( cn_rcv_dqnsdt ) )