Ignore:
Timestamp:
Feb 28, 2012, 12:35:00 PM (12 years ago)
Author:
Ehouarn Millour
Message:

Minor correction: with previous commits, compilation without physics was no longer possible (because PVtheta calls routine tetalevel, which is in the physics directory). Note also that the levels (hard coded in calfis and calfis_p) given as inputs to PVtheta are Earth-specific. This needs to be cleaned and improved...
EM

File:
1 edited

Legend:

Unmodified
Added
Removed
  • LMDZ5/trunk/libf/dyn3d/calfis.F

    r1615 r1617  
    165165      PARAMETER(ntetaSTD=3)
    166166      REAL rtetaSTD(ntetaSTD)
    167       DATA rtetaSTD/350., 380., 405./
     167      DATA rtetaSTD/350., 380., 405./ ! Earth-specific values, beware !!
    168168      REAL PVteta(ngridmx,ntetaSTD)
    169169c
     
    434434c
    435435      if (planet_type=="earth") then
     436#ifdef CPP_PHYS
     437! PVtheta calls tetalevel, which is in the physics
    436438cIM calcul PV a teta=350, 380, 405K
    437439      CALL PVtheta(ngridmx,llm,pucov,pvcov,pteta,
    438440     $           ztfi,zplay,zplev,
    439441     $           ntetaSTD,rtetaSTD,PVteta)
     442#endif
    440443      endif
    441444c
Note: See TracChangeset for help on using the changeset viewer.