Changeset 4391


Ignore:
Timestamp:
2014-02-03T10:31:49+01:00 (7 years ago)
Author:
charris
Message:

#1206 Fix for bug introduced under #1107.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/2012/dev_v3_4_STABLE_2012/NEMOGCM/NEMO/OPA_SRC/SBC/sbccpl.F90

    r4083 r4391  
    403403      CASE( 'conservative'  ) 
    404404         srcv( (/jpr_rain, jpr_snow, jpr_ievp, jpr_tevp/) )%laction = .TRUE. 
    405          IF ( k_ice <= 1 )  srcv(jpr_ivep)%laction = .FALSE. 
     405         IF ( k_ice <= 1 )  srcv(jpr_ievp)%laction = .FALSE. 
    406406      CASE( 'oce and ice'   )   ;   srcv( (/jpr_ievp, jpr_sbpr, jpr_semp, jpr_oemp/) )%laction = .TRUE. 
    407407      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.