Ignore:
Timestamp:
Apr 7, 2009, 5:53:39 PM (15 years ago)
Author:
yann meurdesoif
Message:

Portage vers Vargas

Y.M + E.M

File:
1 edited

Legend:

Unmodified
Added
Removed
  • LMDZ4/branches/LMDZ4-dev/libf/phylmd/calltherm.F90

    r1139 r1142  
    1616#include "thermcell.h"
    1717#include "iniprint.h"
    18 
    19 !  A inclure eventuellement dans les fichiers de configuration
    20       data r_aspect_thermals,l_mix_thermals/2.,30./
    21       data w2di_thermals/1/
    2218
    2319!IM 140508
     
    176172     &      ,tau_thermals,3)
    177173          else if (iflag_thermals.eq.11) then
    178             stop'cas non prevu dans calltherm'
     174            stop 'cas non prevu dans calltherm'
    179175!           CALL thermcell_pluie(klon,klev,zdt  &
    180176!   &      ,pplay,paprs,pphi,zlev  &
Note: See TracChangeset for help on using the changeset viewer.