Changeset 2878 for trunk/LMDZ.MARS/libf/phymars/dyn1d/testphys1d.F

Timestamp:

Jan 25, 2023, 11:39:35 AM (22 months ago)

Author:

llange

Message:

Mars PCM 1D

Following r-2827, fixing bugs

1. igcm_co2 is now initialized
2. remove the abort_gcm in read_profile: The qsurf readed at this line

is not useful at it is initialized later

LL

File:

• trunk/LMDZ.MARS/libf/phymars/dyn1d/testphys1d.F (modified) (1 diff)

trunk/LMDZ.MARS/libf/phymars/dyn1d/testphys1d.F

@@ -546 +546 @@
 c  CO2 ice on the surface
 c  -------------------
-      print *, "RVVV: igcm_co2", igcm_co2
+
       qsurf(igcm_co2)=0.E+0 ! default value for co2ice
       PRINT *,'Initial CO2 ice on the surface (kg.m-2)'