Changeset 1122
- Timestamp:
- Mar 11, 2009, 4:29:23 PM (16 years ago)
- Location:
- LMDZ4/trunk/libf
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ4/trunk/libf/dyn3d/read_reanalyse.F
r1046 r1122 46 46 save varidpl,ncidQ,varidQ 47 47 48 real *4unc(iip1,jjp1,nlevnc),vnc(iip1,jjm,nlevnc)49 real *4tnc(iip1,jjp1,nlevnc),psnc(iip1,jjp1)50 real *4Qnc(iip1,jjp1,nlevnc)51 real *4plnc(iip1,jjp1,nlevnc)52 real *4apnc(nlevnc),bpnc(nlevnc)48 real unc(iip1,jjp1,nlevnc),vnc(iip1,jjm,nlevnc) 49 real tnc(iip1,jjp1,nlevnc),psnc(iip1,jjp1) 50 real Qnc(iip1,jjp1,nlevnc) 51 real plnc(iip1,jjp1,nlevnc) 52 real apnc(nlevnc),bpnc(nlevnc) 53 53 54 54 integer start(4),count(4),status -
LMDZ4/trunk/libf/dyn3dpar/read_reanalyse.F
r1046 r1122 45 45 save varidpl,ncidQ,varidQ 46 46 47 real *4unc(iip1,jjp1,nlevnc),vnc(iip1,jjm,nlevnc)48 real *4tnc(iip1,jjp1,nlevnc),psnc(iip1,jjp1)49 real *4Qnc(iip1,jjp1,nlevnc)50 real *4plnc(iip1,jjp1,nlevnc)51 real *4apnc(nlevnc),bpnc(nlevnc)47 real unc(iip1,jjp1,nlevnc),vnc(iip1,jjm,nlevnc) 48 real tnc(iip1,jjp1,nlevnc),psnc(iip1,jjp1) 49 real Qnc(iip1,jjp1,nlevnc) 50 real plnc(iip1,jjp1,nlevnc) 51 real apnc(nlevnc),bpnc(nlevnc) 52 52 53 53 integer start(4),count(4),status
Note: See TracChangeset
for help on using the changeset viewer.