Changeset 2485 for LMDZ5/trunk
- Timestamp:
- Apr 1, 2016, 11:21:11 PM (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ5/trunk/libf/phylmd/physiq_mod.F90
r2481 r2485 937 937 !albedo SB <<< 938 938 939 !--OB variables for mass fixer 939 !--OB variables for mass fixer (hard coded for now) 940 940 logical, parameter :: mass_fixer=.false. 941 941 real qql1(klon),qql2(klon),zdz,corrqql … … 1599 1599 DO i = 1, klon 1600 1600 DO k = 1, klev 1601 zdz=(paprs(i,k)-paprs(i,k+1))/RG 1602 qql1(i)=qql1(i)+(q_seri(i,k)+ql_seri(i,k))*zdz 1601 qql1(i)=qql1(i)+(q_seri(i,k)+ql_seri(i,k))*zmasse(i,k) 1603 1602 ENDDO 1604 1603 ENDDO … … 4552 4551 DO i = 1, klon 4553 4552 DO k = 1, klev 4554 zdz=(paprs(i,k)-paprs(i,k+1))/RG 4555 qql2(i)=qql2(i)+(q_seri(i,k)+ql_seri(i,k))*zdz 4553 qql2(i)=qql2(i)+(q_seri(i,k)+ql_seri(i,k))*zmasse(i,k) 4556 4554 ENDDO 4557 4555 ENDDO
Note: See TracChangeset
for help on using the changeset viewer.