Changeset 1421 for trunk/LMDZ.MARS/libf


Ignore:
Timestamp:
Apr 30, 2015, 10:24:13 AM (10 years ago)
Author:
milmd
Message:

Correction of newstart and vertical interpolation of q2 in LMDZ.GENERIC and LMDZ.MARS. In LMDZ.GENERIC add flag for cloud fraction reading.

Location:
trunk/LMDZ.MARS/libf/dynlonlat_phylonlat/phymars
Files:
2 edited

Legend:

Unmodified
Added
Removed

  • trunk/LMDZ.MARS/libf/dynlonlat_phylonlat/phymars/lect_start_archive.F

    r1403 r1421  
    12771277      write (*,*) 'lect_start_archive: q2old ', q2old (1,2,1)  ! INFO
    12781278      call interp_vert (q2old,varp1,lmold+1,llm+1,
    1279      &     apsold,bpsold,aps,bps,psold,(imold+1)*(jmold+1))
     1279     &     apsold,bpsold,ap,bp,psold,(imold+1)*(jmold+1))
    12801280      write (*,*) 'lect_start_archive: varp1 ', varp1 (1,2,1)  ! INFO
    12811281      call interp_horiz(varp1,q2s,imold,jmold,iim,jjm,llm+1,

  • trunk/LMDZ.MARS/libf/dynlonlat_phylonlat/phymars/newstart.F

    r1415 r1421  
    434434        write(*,*) 'Reading file START'
    435435        fichnom = 'start.nc'
    436         CALL dynetat0(fichnom,nqtot,vcov,ucov,teta,q,masse,
     436        CALL dynetat0(fichnom,vcov,ucov,teta,q,masse,
    437437     .       ps,phis,time)
    438438
Note: See TracChangeset for help on using the changeset viewer.