Changeset 4069
- Timestamp:
- 2013-10-17T11:25:53+02:00 (11 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2012/dev_v3_4_STABLE_2012/NEMOGCM/NEMO/OPA_SRC/SBC/sbccpl.F90
r4067 r4069 401 401 SELECT CASE( TRIM( sn_rcv_emp%cldes ) ) 402 402 CASE( 'oce only' ) ; srcv( jpr_oemp )%laction = .TRUE. 403 CASE( 'conservative' ) ; srcv( (/jpr_rain, jpr_snow, jpr_ievp, jpr_tevp/) )%laction = .TRUE. 403 CASE( 'conservative' ) 404 srcv( (/jpr_rain, jpr_snow, jpr_ievp, jpr_tevp/) )%laction = .TRUE. 405 IF ( k_ice <= 1 ) srcv(jpr_ivep)%laction = .FALSE. 404 406 CASE( 'oce and ice' ) ; srcv( (/jpr_ievp, jpr_sbpr, jpr_semp, jpr_oemp/) )%laction = .TRUE. 405 407 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.