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.GENERIC/libf/dynlonlat_phylonlat/phystd
Files:
2 edited

Legend:

Unmodified
Added
Removed

  • trunk/LMDZ.GENERIC/libf/dynlonlat_phylonlat/phystd/lect_start_archive.F

    r1403 r1421  
    13321332      write (*,*) 'lect_start_archive: q2old ', q2old (1,2,1)  ! INFO
    13331333      call interp_vert (q2old,varp1,lmold+1,llm+1,
    1334      &     apsold,bpsold,aps,bps,psold,(imold+1)*(jmold+1))
     1334     &     apsold,bpsold,ap,bp,psold,(imold+1)*(jmold+1))
    13351335      write (*,*) 'lect_start_archive: varp1 ', varp1 (1,2,1)  ! INFO
    13361336      call interp_horiz(varp1,q2s,imold,jmold,iim,jjm,llm+1,

  • trunk/LMDZ.GENERIC/libf/dynlonlat_phylonlat/phystd/newstart.F

    r1415 r1421  
    342342        write(*,*) 'Reading file START'
    343343        fichnom = 'start.nc'
    344         CALL dynetat0(fichnom,nqtot,vcov,ucov,teta,q,masse,
     344        CALL dynetat0(fichnom,vcov,ucov,teta,q,masse,
    345345     .       ps,phis,time)
    346346
Note: See TracChangeset for help on using the changeset viewer.