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

Timestamp:

Jan 30, 2019, 2:54:30 PM (5 years ago)

Author:

Laurent Fairhead

Message:

Wrong order in call sequence of XIOS context initialisation meant that the coupled model hung.
LF

File:

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

LMDZ6/trunk/libf/phylmd/physiq_mod.F90

@@ -1472 +1472 @@
        IF (MOD(NINT(86400./phys_tstep),nbapp_wk).EQ.0) THEN
           wkpas = NINT( 86400./phys_tstep)/nbapp_wk
-       print *,'physiq, wkpas ',wkpas
+!       print *,'physiq, wkpas ',wkpas
        ELSE 
           WRITE(lunout,*) 'le nombre de pas de temps physique doit etre un ', &
@@ -1483 +1483 @@
        ENDIF
        ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
-       CALL init_iophy_new(latitude_deg,longitude_deg)
+!       CALL init_iophy_new(latitude_deg,longitude_deg)
 
           !===================================================================