Changeset 15313

Timestamp:

2021-10-01T13:57:20+02:00 (20 months ago)

Author:

hadjt

Message:

POLCOMS style radiatve transfer for radiative fluxes

TRA/tradwl.F90 added. step.F90 and step_oce.F90 edited.
Namelist added: namtra_dwl, with two keys: ln_tradwl, ln_vary_lambda

This version is still in progress, as the variable hbatt from CO6 is no in CO8, and I need to confirm my approach is
valid.

This was crashing due to rlambda2 being infinity, when depth was 0. I have set a max value of 0.25, which is
equivalent to about 10cm of water.

The version is committed in restrospect, so may not include all the changes to work.

Location:

NEMO/branches/UKMO/NEMO_4.0.4_CO9_shelf_climate/src/OCE

Files:

• step.F90 (modified) (1 diff)
• step_oce.F90 (modified) (1 diff)

NEMO/branches/UKMO/NEMO_4.0.4_CO9_shelf_climate/src/OCE/step.F90

@@ -228 +228 @@
                          CALL tra_sbc       ( kstp )  ! surface boundary condition
       IF( ln_traqsr  )   CALL tra_qsr       ( kstp )  ! penetrative solar radiation qsr
+      !JT
+      IF( ln_tradwl  )   CALL tra_dwl       ( kstp )  ! Polcoms Style Short Wave Radiation 
+      !JT
+
       IF( ln_trabbc  )   CALL tra_bbc       ( kstp )  ! bottom heat flux
       IF( ln_trabbl  )   CALL tra_bbl       ( kstp )  ! advective (and/or diffusive) bottom boundary layer scheme

NEMO/branches/UKMO/NEMO_4.0.4_CO9_shelf_climate/src/OCE/step_oce.F90

@@ -23 +23 @@
 
    USE traqsr          ! solar radiation penetration      (tra_qsr routine)
+   !JT
+   USE tradwl          ! POLCOMS style solar radiation    (tra_dwl routine) 
+   !JT
    USE trasbc          ! surface boundary condition       (tra_sbc routine)
    USE trabbc          ! bottom boundary condition        (tra_bbc routine)