Ignore:
Timestamp:
Apr 14, 2015, 9:46:47 AM (10 years ago)
Author:
milmd
Message:

Update newstart and start2archive programs of LMDZ.GENERIC and LMDZ.MARS to the new organization.

File:
1 edited

Legend:

Unmodified
Added
Removed

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

    r1403 r1415  
    235235     .         iim, jjp1, rlonv, rlatu, zmea,zstd,zsig,zgam,zthe)
    236236
    237           CALL dump2d(iip1,jjp1,zmea,'zmea')
    238           CALL dump2d(iip1,jjp1,zstd,'zstd')
    239           CALL dump2d(iip1,jjp1,zsig,'zsig')
    240           CALL dump2d(iip1,jjp1,zgam,'zgam')
    241           CALL dump2d(iip1,jjp1,zthe,'zthe')
    242 
    243237      endif
    244238
    … …  
    274268         z0(1:iimp1*jjp1)=pfield(1:iimp1*jjp1)*.01
    275269         ! multiplied by 0.01 to have z0 in m
    276          CALL dump2d(iimp1,jjp1,z0,'z0 in m')
    277270      elseif (k.eq.1) then                    ! albedo
    278271         do i=1,iimp1*jjp1
    … …  
    300293
    301294      phisinit(1:iimp1*jjp1)=1000.*phisinit(1:iimp1*jjp1)
    302       CALL dump2d(iimp1,jjp1,phisinit,'Altitude in m')
    303295      phisinit(:)=g*phisinit(:)
    304296
Note: See TracChangeset for help on using the changeset viewer.