Changeset 2078 for trunk/LMDZ.TITAN/libf/phytitan/inifis_mod.F90

Timestamp:

Jan 22, 2019, 4:53:12 PM (6 years ago)

Author:

jvatant

Message:

Cf r2076, fix a missing dummy init of mugaz causing NaNs?
--JVO

File:

• trunk/LMDZ.TITAN/libf/phytitan/inifis_mod.F90 (modified) (2 diffs)

trunk/LMDZ.TITAN/libf/phytitan/inifis_mod.F90

@@ -84 +84 @@
   r=pr
   rcp=r/cpp
+  mugaz=8.314*1000./pr ! dummy init
   pi=2.*asin(1.)
   avocado = 6.02214179e23   ! added by RW
@@ -531 +532 @@
            write(*,*) "cpp=",cpp
        ENDIF
-!         else
-!           mugaz=8.314*1000./pr
      endif ! of if (force_cpp)