Changeset 8870 for branches/UKMO/ROMS_WAD_7832/NEMOGCM/NEMO/OPA_SRC/TRA/trasbc.F90

Timestamp:

2017-12-01T10:48:12+01:00 (6 years ago)

Author:

deazer

Message:

Changed WAD option names to Iterative and Directional
Removed old Diagnostics
Updated Domain CFG to allow domain generation with ref height for wad cases
Cleaned up TEST_CASES/cfg.txt file (need to not include WAD2 etc)
TEST caaes run ok
SETTE runs OK
AMM15 5 level runs OK

File:

• branches/UKMO/ROMS_WAD_7832/NEMOGCM/NEMO/OPA_SRC/TRA/trasbc.F90 (modified) (2 diffs)

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

@@ -34 +34 @@
    USE wrk_nemo       ! Memory Allocation
    USE timing         ! Timing
-   USE wet_dry
+   USE wet_dry,   ONLY :   ln_wd_il, ln_wd_dl, rn_wdmin1
 
    IMPLICIT NONE
@@ -123 +123 @@
       DO jj = 2, jpj
          DO ji = fs_2, fs_jpim1   ! vector opt.
-            IF ( ln_rwd_rmp ) THEN    ! If near WAD point limite the flux for now
+            IF ( ln_wd_il .or. ln_wd_dl ) THEN    ! If near WAD point limit the flux for now
                IF ( sshn(ji,jj) + ht_0(ji,jj) >  2._wp * rn_wdmin1 ) THEN
                   sbc_tsc(ji,jj,jp_tem) = r1_rau0_rcp * qns(ji,jj)   ! non solar heat flux