Changeset 15316 for NEMO/branches/UKMO/NEMO_4.0.4_CO9_shelf_climate/src/OCE/TRA

Timestamp:

2021-10-01T14:13:23+02:00 (3 years ago)

Author:

hadjt

Message:

TRA/trasbc.F90 OCE/trc_oce.F90
Additional files required for tradwl.F90

File:

• NEMO/branches/UKMO/NEMO_4.0.4_CO9_shelf_climate/src/OCE/TRA/trasbc.F90 (modified) (2 diffs)

NEMO/branches/UKMO/NEMO_4.0.4_CO9_shelf_climate/src/OCE/TRA/trasbc.F90

@@ -26 +26 @@
    USE traqsr         ! solar radiation penetration
    USE trd_oce        ! trends: ocean variables
-   USE trdtra         ! trends manager: tracers 
+   USE trdtra         ! trends manager: tracers
+   !JT
+   USE tradwl          ! solar radiation penetration (downwell method)
+   !JT
 #if defined key_asminc   
    USE asminc         ! Assimilation increment
@@ -95 +98 @@
       !
 !!gm  This should be moved into sbcmod.F90 module ? (especially now that ln_traqsr is read in namsbc namelist)
-      IF( .NOT.ln_traqsr ) THEN     ! no solar radiation penetration
+      !JT
+      IF( .NOT.ln_traqsr .and. .NOT.ln_tradwl ) THEN     ! no solar radiation penetration
+      !JT
          qns(:,:) = qns(:,:) + qsr(:,:)      ! total heat flux in qns
          qsr(:,:) = 0._wp                     ! qsr set to zero