- Timestamp:
- 04/10/20 16:56:06 (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
codes/icosagcm/trunk/src/diagnostics/observable.f90
r953 r1024 311 311 p_ik = pmid(ij,l) 312 312 theta_ik = temp(ij,l) 313 qv = q(ij,l,1) ! water vaper mixing ratio = mv/md313 IF (nqtot>0) qv = q(ij,l,1) ! water vaper mixing ratio = mv/md 314 314 SELECT CASE(caldyn_thermo) 315 315 CASE(thermo_theta)
Note: See TracChangeset
for help on using the changeset viewer.