Changeset 3462

Timestamp:

Feb 2, 2019, 1:57:31 AM (5 years ago)

Author:

fhourdin

Message:

Changing the call to iophy
FH

Location:

LMDZ6/trunk/libf/phylmd

Files:

• phyetat0.F90 (modified) (1 diff)
• physiq_mod.F90 (modified) (2 diffs)

LMDZ6/trunk/libf/phylmd/phyetat0.F90

@@ -524 +524 @@
   ENDIF
 
-  CALL init_iophy_new(latitude_deg, longitude_deg)
+! FH: Called outside phyetat0
+!  CALL init_iophy_new(latitude_deg, longitude_deg)
 
   ! Initilialize module fonte_neige_mod      

LMDZ6/trunk/libf/phylmd/physiq_mod.F90

@@ -1488 +1488 @@
        ENDIF
        ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
-!       CALL init_iophy_new(latitude_deg,longitude_deg)
+       IF (grid_type/=unstructured) CALL init_iophy_new(latitude_deg,longitude_deg)
 
           !===================================================================
@@ -1584 +1584 @@
        CALL create_etat0_limit_unstruct
        CALL phyetat0 ("startphy.nc",clesphy0,tabcntr0)
+       IF (grid_type==unstructured) CALL init_iophy_new(latitude_deg,longitude_deg)
 
 !jyg<