Changeset 4504


Ignore:
Timestamp:
Apr 7, 2023, 9:39:37 PM (20 months ago)
Author:
evignon
Message:

modification de physiq_mod dans phylmdiso pour stopper l'execution si on utilise la neige soufflee
(pas isotope compatible pour l'instant)

File:
1 edited

Legend:

Unmodified
Added
Removed

  • LMDZ6/branches/blowing_snow/libf/phylmdiso/physiq_mod.F90

    r4479 r4504  
    14151415       ENDIF
    14161416
     1417
    14171418       IF (ok_ice_sursat.AND.(iflag_ice_thermo.EQ.0)) THEN
    14181419          WRITE (lunout, *) ' ok_ice_sursat=y requires iflag_ice_thermo=1 as well'
    … …  
    14401441       ENDIF
    14411442
     1443       IF (ok_bs) THEN
     1444          abort_message='blowing snow cannot be activated with water isotopes yet'
     1445          CALL abort_physic(modname,abort_message, 1)
     1446       ENDIF
    14421447       Ncvpaseq1 = 0
    14431448       dnwd0=0.0
Note: See TracChangeset for help on using the changeset viewer.