Changeset 15163 for NEMO/branches/UKMO/NEMO_4.0.1_NGMS_couple_dan

Timestamp:

2021-08-02T17:27:35+02:00 (3 years ago)

Author:

dancopsey

Message:

Enable sublimation without the other E minus P coupling fields

File:

• NEMO/branches/UKMO/NEMO_4.0.1_NGMS_couple_dan/src/OCE/SBC/sbccpl.F90 (modified) (1 diff)

NEMO/branches/UKMO/NEMO_4.0.1_NGMS_couple_dan/src/OCE/SBC/sbccpl.F90

@@ -462 +462 @@
          srcv( (/jpr_rain, jpr_snow, jpr_ievp, jpr_tevp/) )%laction = .TRUE.
          IF ( k_ice <= 1 )  srcv(jpr_ievp)%laction = .FALSE.
+      CASE( 'ice only'  )       ;   srcv(jpr_ievp)%laction = .TRUE. 
       CASE( 'oce and ice'   )   ;   srcv( (/jpr_ievp, jpr_sbpr, jpr_semp, jpr_oemp/) )%laction = .TRUE.
       CASE default              ;   CALL ctl_stop( 'sbc_cpl_init: wrong definition of sn_rcv_emp%cldes' )