Changeset 1353 for LMDZ4/branches/LMDZ4V5.0-dev/libf/phylmd/undefSTD.F
- Timestamp:
- Apr 14, 2010, 11:48:40 AM (14 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ4/branches/LMDZ4V5.0-dev/libf/phylmd/undefSTD.F
r1350 r1353 63 63 c 64 64 IF(MOD(itap,NINT(freq_calNMC(n)/dtime)).EQ.0) THEN 65 c66 c print*,'n freq_cal=',n,itap,freq_calNMC(n)/dtime67 c68 65 DO k=1, nlevSTD 69 66 DO i=1, klon … … 90 87 v2sumSTD(i,k,n)=v2sumSTD(i,k,n)+v2STD(i,k) 91 88 T2sumSTD(i,k,n)=T2sumSTD(i,k,n)+T2STD(i,k) 92 c93 c if(n.EQ.1.AND.i.EQ.4513.AND.k.EQ.17) THEN94 if(n.EQ.1.AND.i.EQ.1128.AND.k.EQ.17) THEN95 print*,'itap rlon rlat tlevSTD=',itap,rlon(i),rlat(i),96 $tlevSTD(i,k)97 endif98 c99 89 ENDIF 100 90 ENDDO !i
Note: See TracChangeset
for help on using the changeset viewer.