Changeset 1421 for trunk/LMDZ.GENERIC/libf/phystd

Timestamp:

Apr 30, 2015, 10:24:13 AM (10 years ago)

Author:

milmd

Message:

Correction of newstart and vertical interpolation of q2 in LMDZ.GENERIC and LMDZ.MARS. In LMDZ.GENERIC add flag for cloud fraction reading.

File:

• trunk/LMDZ.GENERIC/libf/phystd/phyetat0.F90 (modified) (4 diffs)

trunk/LMDZ.GENERIC/libf/phystd/phyetat0.F90

@@ -11 +11 @@
                      inquire_dimension, inquire_dimension_length
   use slab_ice_h, only: noceanmx
+  use callkeys_mod, only: CLFvarying
 
   implicit none
@@ -251 +252 @@
 
 ! Cloud fraction (added by BC 2010)
+if (CLFvarying) then
 call get_field("cloudfrac",cloudfrac,found,indextime)
 if (.not.found) then
@@ -259 +261 @@
              minval(cloudfrac), maxval(cloudfrac)
 endif
+else
+cloudfrac(:,:)=0.0
+endif
 
 ! Total cloud fraction (added by BC 2010)
+if (CLFvarying) then
 call get_field("totcloudfrac",totcloudfrac,found,indextime)
 if (.not.found) then
@@ -268 +274 @@
   write(*,*) "phyetat0: Total cloud fraction <totcloudfrac> range:", &
              minval(totcloudfrac), maxval(totcloudfrac)
+endif
+else
+totcloudfrac(:)=0.0
 endif