Changeset 1354 for LMDZ4/trunk/libf/phylmd/undefSTD.F
- Timestamp:
- Apr 14, 2010, 11:48:47 AM (14 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ4/trunk/libf/phylmd/undefSTD.F
r1352 r1354 60 60 c 61 61 IF(MOD(itap,NINT(freq_calNMC(n)/dtime)).EQ.0) THEN 62 c63 c print*,'n freq_cal=',n,itap,freq_calNMC(n)/dtime64 c65 62 DO k=1, nlevSTD 66 63 DO i=1, klon … … 87 84 v2sumSTD(i,k,n)=v2sumSTD(i,k,n)+v2STD(i,k) 88 85 T2sumSTD(i,k,n)=T2sumSTD(i,k,n)+T2STD(i,k) 89 c90 c if(n.EQ.1.AND.i.EQ.4513.AND.k.EQ.17) THEN91 if(n.EQ.1.AND.i.EQ.1128.AND.k.EQ.17) THEN92 print*,'itap rlon rlat tlevSTD=',itap,rlon(i),rlat(i),93 $tlevSTD(i,k)94 endif95 c96 86 ENDIF 97 87 ENDDO !i
Note: See TracChangeset
for help on using the changeset viewer.