Changeset 3964 for trunk/LMDZ.MARS/libf/phymars/phyetat0_mod.F90

Timestamp:

Nov 19, 2025, 12:40:01 PM (6 weeks ago)

Author:

emillour

Message:

Mars PCM:
Minor cleaning: don't systematically read/write "totcloudfrac" (water ice
cloud fraction) in startfi/restartfi files. Do it only if CLFvarying is .true.
EM

File:

• trunk/LMDZ.MARS/libf/phymars/phyetat0_mod.F90 (modified) (2 diffs)

trunk/LMDZ.MARS/libf/phymars/phyetat0_mod.F90

@@ -38 +38 @@
 use tabfi_mod, only: tabfi
 use callkeys_mod, only: startphy_file, rdstorm, hdo
+use callkeys_mod, only: CLFvarying, CLFfixval
 
 implicit none
@@ -483 +484 @@
             minval(dtau), maxval(dtau)
 
-! Sub-grid cloud fraction
-if (startphy_file) then
+! Sub-grid water ice cloud fraction
+totcloudfrac(:)=1.0 ! default value; no cloud fraction
+if (startphy_file) then
+  if (CLFvarying) then
    call get_field("totcloudfrac",totcloudfrac,found,indextime)
    if (.not.found) then
-     write(*,*) "phyetat0: <totcloudfrac> not in file WARNING put to 1"
-     totcloudfrac(:) = 1.0 !valeur par defaut (CLFfixval par defaut)
-   endif
-else
-   totcloudfrac(:)=1.0
+     write(*,*) "phyetat0: <totcloudfrac> not in file; set to ",CLFfixval
+   endif
+   totcloudfrac(:)=CLFfixval
+  endif ! of if (CLFvarying)
 endif ! if (startphy_file)
 write(*,*) "phyetat0: total cloud fraction <totcloudfrac> range:", &