Changeset 6610 for branches/UKMO/CO6_KD490/NEMOGCM/NEMO/OPA_SRC/TRA

Timestamp:

2016-05-25T03:50:59+02:00 (8 years ago)

Author:

deazer

Message:

Adding Direct MO Fluxes to CO6

Location:

branches/UKMO/CO6_KD490/NEMOGCM/NEMO/OPA_SRC/TRA

Files:

• tradwl.F90 (added)
• trasbc.F90 (modified) (2 diffs)

branches/UKMO/CO6_KD490/NEMOGCM/NEMO/OPA_SRC/TRA/trasbc.F90

@@ -25 +25 @@
    USE trd_oce         ! trends: ocean variables
    USE trdtra          ! trends manager: tracers 
+   USE tradwl          ! solar radiation penetration (downwell method)
    !
    USE in_out_manager  ! I/O manager
@@ -138 +139 @@
 
 !!gm      IF( .NOT.ln_traqsr )   qsr(:,:) = 0.e0   ! no solar radiation penetration
-      IF( .NOT.ln_traqsr ) THEN     ! no solar radiation penetration
+      IF( .NOT.ln_traqsr .and. .NOT.ln_tradwl ) THEN     ! no solar radiation penetration
          qns(:,:) = qns(:,:) + qsr(:,:)      ! total heat flux in qns
          qsr(:,:) = 0.e0                     ! qsr set to zero