Changeset 1418 for LMDZ4/trunk/libf/phylmd/undefSTD.F
- Timestamp:
- Jul 19, 2010, 5:11:24 PM (14 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ4/trunk/libf/phylmd/undefSTD.F
r1403 r1418 2 2 ! $Id$ 3 3 ! 4 SUBROUTINE undefSTD(itap,freq_calNMC )4 SUBROUTINE undefSTD(itap,freq_calNMC, read_climoz) 5 5 USE netcdf 6 6 USE dimphy … … 43 43 INTEGER i, k, n 44 44 REAL freq_calNMC(nout) 45 INTEGER read_climoz 45 46 c 46 47 c variables Output … … 85 86 T2sumSTD(i,k,n)=T2sumSTD(i,k,n)+T2STD(i,k) 86 87 O3sumSTD(i,k,n)=O3sumSTD(i,k,n)+O3STD(i,k) 87 O3daysumSTD(i,k,n)=O3daysumSTD(i,k,n)+O3daySTD(i,k) 88 IF (read_climoz==2) 89 & O3daysumSTD(i,k,n)=O3daysumSTD(i,k,n)+O3daySTD(i,k) 90 88 91 ENDIF 89 92 ENDDO !i
Note: See TracChangeset
for help on using the changeset viewer.