Changeset 3462 for LMDZ6/trunk/libf/phylmd/physiq_mod.F90

Timestamp:

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

Author:

fhourdin

Message:

Changing the call to iophy
FH

File:

• LMDZ6/trunk/libf/phylmd/physiq_mod.F90 (modified) (2 diffs)

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<