Ignore:
Timestamp:
07/21/14 12:01:59 (10 years ago)
Author:
ymipsl
Message:

calling iniphysics directly from dynamico

YM

File:
1 edited

Legend:

Unmodified
Added
Removed

  • codes/icosagcm/branches/SATURN_DYNAMICO/LMDZ.COMMON/libf/dyn3dpar/init_gcm_lmdz.F

    r222 r242  
    512512!     &                iflag_phys) 
    513513 
    514          zcufi(nbp)=1. 
    515          zcvfi(nbp)=1. 
    516  
    517          CALL iniphysiq(klon_glo,llm,daysec,day_ini,dtphys/nsplit_phys,  
    518      &                latfi,lonfi,airefi,zcufi,zcvfi,rad,g,r,cpp,  
    519      &                iflag_phys)  
     514!         zcufi(nbp)=1. 
     515!         zcvfi(nbp)=1. 
     516 
     517!         CALL iniphysiq(klon_glo,llm,daysec,day_ini,dtphys/nsplit_phys,  
     518!     &                latfi,lonfi,airefi,zcufi,zcvfi,rad,g,r,cpp,  
     519!     &                iflag_phys)  
    520520 
    521521#endif 
Note: See TracChangeset for help on using the changeset viewer.