Changeset 4928 for LMDZ6/trunk/libf/phylmd/phyetat0_get_mod.F90

Timestamp:

May 2, 2024, 6:06:46 PM (8 weeks ago)

Author:

musat

Message:

Initialisation of ratqs_inter_ to 0.002 in phys_state_var_mod
Back to the old phyetat0_get_mod (because isnan doesn't work with
gfortran lmgz-cq)
IonelaMusat?

File:

• LMDZ6/trunk/libf/phylmd/phyetat0_get_mod.F90 (modified) (1 diff)

LMDZ6/trunk/libf/phylmd/phyetat0_get_mod.F90

@@ -64 +64 @@
   DO i = 1, SIZE(name)
     CALL get_field(TRIM(name(i)), field, lFound)
-    IF(isnan(field(1,1))) THEN
-      field(:,:) = default
-    ENDIF
     IF(lFound) EXIT
     WRITE(lunout,*) "phyetat0: Missing field <",TRIM(name(i)),"> "