/[lmdze]/trunk/libf/dyn3d/etat0.f90
ViewVC logotype

Diff of /trunk/libf/dyn3d/etat0.f90

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 18 by guez, Thu Aug 7 12:29:13 2008 UTC revision 22 by guez, Fri Jul 31 15:18:47 2009 UTC
# Line 296  contains Line 296  contains
296      day_ref = dayref      day_ref = dayref
297      annee_ref = anneeref      annee_ref = anneeref
298    
299      CALL geopot(ip1jmp1, tpot, pk , pks,  phis  , phi)      CALL geopot(ip1jmp1, tpot, pk , pks,  phis, phi)
300      CALL caldyn0(0, uvent, vvent, tpot, psol, masse, pk, phis, phi, w, &      CALL caldyn0(0, uvent, vvent, tpot, psol, masse, pk, phis, phi, w, &
301           pbaru, pbarv, 0)           pbaru, pbarv, 0)
302      CALL dynredem0("start.nc", dayref, phis)      CALL dynredem0("start.nc", dayref, phis)
Legend:
Removed from v.18  
changed lines
  Added in v.22
  ViewVC Help
Powered by ViewVC 1.1.21