Changeset 2407


Ignore:
Timestamp:
Dec 11, 2015, 9:58:57 AM (9 years ago)
Author:
idelkadi
Message:
 
File:
1 edited

Legend:

Unmodified
Added
Removed

  • LMDZ5/trunk/libf/phylmd/cva_driver.F90

    r2398 r2407  
    896896! -------------------------------------------------------------------
    897897    IF (iflag_con==3) THEN
    898       IF ((iflag_ice_thermo==1) .AND. (iflag_mix/=0)) THEN
    899         WRITE (*, *) ' iflag_ice_thermo==1 requires iflag_mix==0', ' but iflag_mix=', iflag_mix, &
    900           '. Might as well stop here.'
    901         STOP
    902       END IF
     898!      IF ((iflag_ice_thermo==1) .AND. (iflag_mix/=0)) THEN
     899!        WRITE (*, *) ' iflag_ice_thermo==1 requires iflag_mix==0', ' but iflag_mix=', iflag_mix, &
     900!          '. Might as well stop here.'
     901!        STOP
     902!      END IF
    903903      IF (iflag_mix>=1) THEN
    904904        CALL zilch(supmax, nloc*klev)
Note: See TracChangeset for help on using the changeset viewer.