Changeset 1024


Ignore:
Timestamp:
04/10/20 16:56:06 (4 years ago)
Author:
millour
Message:

Bug fix: qv computation is only possible if using at least 1 tracer.
EM

File:
1 edited

Legend:

Unmodified
Added
Removed

  • codes/icosagcm/trunk/src/diagnostics/observable.f90

    r953 r1024  
    311311          p_ik = pmid(ij,l) 
    312312          theta_ik = temp(ij,l) 
    313           qv = q(ij,l,1) ! water vaper mixing ratio = mv/md 
     313          IF (nqtot>0) qv = q(ij,l,1) ! water vaper mixing ratio = mv/md 
    314314          SELECT CASE(caldyn_thermo) 
    315315          CASE(thermo_theta) 
Note: See TracChangeset for help on using the changeset viewer.