Changeset 4023 for trunk/LMDZ.MARS/libf/aeronomars/paramfoto_compact.F

Timestamp:

Jan 20, 2026, 1:09:10 AM (3 days ago)

Author:

aslmd

Message:

Mars PCM: additional work on double consistency. NB: a lot of compilers with the right options do not care so much about it and do type conversion between real and double behind your back

File:

• trunk/LMDZ.MARS/libf/aeronomars/paramfoto_compact.F (modified) (1 diff)

trunk/LMDZ.MARS/libf/aeronomars/paramfoto_compact.F

@@ -26 +26 @@
       real zenit
       real zx(nlayer)
-      real rm(nlayer,nesptherm)
+      real*8 rm(nlayer,nesptherm)
       real timestep