Changeset 15163 for NEMO/branches/UKMO/NEMO_4.0.1_NGMS_couple_dan
- Timestamp:
- 2021-08-02T17:27:35+02:00 (3 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/UKMO/NEMO_4.0.1_NGMS_couple_dan/src/OCE/SBC/sbccpl.F90
r15114 r15163 462 462 srcv( (/jpr_rain, jpr_snow, jpr_ievp, jpr_tevp/) )%laction = .TRUE. 463 463 IF ( k_ice <= 1 ) srcv(jpr_ievp)%laction = .FALSE. 464 CASE( 'ice only' ) ; srcv(jpr_ievp)%laction = .TRUE. 464 465 CASE( 'oce and ice' ) ; srcv( (/jpr_ievp, jpr_sbpr, jpr_semp, jpr_oemp/) )%laction = .TRUE. 465 466 CASE default ; CALL ctl_stop( 'sbc_cpl_init: wrong definition of sn_rcv_emp%cldes' )
Note: See TracChangeset
for help on using the changeset viewer.