Changeset 3451 for trunk/LMDZ.VENUS/libf/phyvenus/phyetat0.F90

Timestamp:

Oct 7, 2024, 3:37:34 PM (7 weeks ago)

Author:

emillour

Message:

Venus PCM:
Add "Age of Air" scheme from Maureen Cohen.
Activated with flag "ok_aoa=y" and requires that there is also
an "aoa" tracer in traceur.def
MC

File:

• trunk/LMDZ.VENUS/libf/phyvenus/phyetat0.F90 (modified) (1 diff)

trunk/LMDZ.VENUS/libf/phyvenus/phyetat0.F90

@@ -351 +351 @@
 ELSE
   ancien_ok=.false.
+ENDIF
+
+IF (startphy_file) THEN
+  CALL get_field("age",age,found)
+  IF (.not.found) THEN
+    PRINT*, "phyetat0: Age of air is missing"
+    PRINT*, "Reinitialising age of air to 0"
+    age(:,:) = 0.
+  ENDIF
+ELSE
+  age(:,:) = 0.
 ENDIF