Changeset 3457 for LMDZ6/trunk/libf


Ignore:
Timestamp:
Jan 30, 2019, 2:54:30 PM (6 years ago)
Author:
Laurent Fairhead
Message:

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

Location:
LMDZ6/trunk/libf/phylmd
Files:
3 edited

Legend:

Unmodified
Added
Removed

  • LMDZ6/trunk/libf/phylmd/iophy.F90

    r3435 r3457  
    4949  USE mod_grid_phy_lmdz, ONLY: nbp_lon, nbp_lat, klon_glo, grid_type, unstructured
    5050  USE print_control_mod, ONLY: prt_level,lunout
     51  USE surface_data,     ONLY : type_ocean
    5152#ifdef CPP_IOIPSL
    5253    USE ioipsl, ONLY: flio_dom_set
    … …  
    7374
    7475#ifdef CPP_XIOS
     76    IF ( type_ocean /= 'couple' ) THEN
    7577      CALL wxios_context_init
     78    ENDIF
    7679#endif
    7780   

  • LMDZ6/trunk/libf/phylmd/phyetat0.F90

    r3449 r3457  
    524524  ENDIF
    525525
    526 !  CALL init_iophy_new(latitude_deg, longitude_deg)
     526  CALL init_iophy_new(latitude_deg, longitude_deg)
    527527
    528528  ! Initilialize module fonte_neige_mod     

  • LMDZ6/trunk/libf/phylmd/physiq_mod.F90

    r3450 r3457  
    14721472       IF (MOD(NINT(86400./phys_tstep),nbapp_wk).EQ.0) THEN
    14731473          wkpas = NINT( 86400./phys_tstep)/nbapp_wk
    1474        print *,'physiq, wkpas ',wkpas
     1474!       print *,'physiq, wkpas ',wkpas
    14751475       ELSE
    14761476          WRITE(lunout,*) 'le nombre de pas de temps physique doit etre un ', &
    … …  
    14831483       ENDIF
    14841484       ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
    1485        CALL init_iophy_new(latitude_deg,longitude_deg)
     1485!       CALL init_iophy_new(latitude_deg,longitude_deg)
    14861486
    14871487          !===================================================================
Note: See TracChangeset for help on using the changeset viewer.