Changeset 5913 for LMDZ6/trunk/libf


Ignore:
Timestamp:
Dec 4, 2025, 5:00:50 PM (7 weeks ago)
Author:
Laurent Fairhead
Message:

Continuing corrections on revision 5905

Location:
LMDZ6/trunk/libf
Files:
1 added
3 edited

Legend:

Unmodified
Added
Removed

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

    r5906 r5913  
    150150    INTEGER           :: ibuf(4), mode_code
    151151
     152    ghg_mode = 'identity'
    152153    mode_in = ghg_mode
    153154    CALL getin_p('ghg_mode',            mode_in)

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

    r5905 r5913  
    7272
    7373!--PC Provide the record time step to IOIPSL (silences INTENT(OUT) warning)
    74        dtime = zstophy
     74!       dtime = zstophy
    7575       CALL histbeg("paramLMDZ_phy.nc",  &
    7676                       np,zx_lon(np:np,1), np,zx_lat(1,np:np), &

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

    r5912 r5913  
    20242024       IF (phys_tstep*REAL(radpas).GT.21600..AND.iflag_cycle_diurne.GE.1) THEN
    20252025          WRITE(lunout,*)'Nbre d appels au rayonnement insuffisant'
     2026          WRITE(lunout,*)'phys_tstep =', phys_tstep, radpas, iflag_cycle_diurne
    20262027          WRITE(lunout,*)"Au minimum 4 appels par jour si cycle diurne"
    20272028          abort_message='Nbre d appels au rayonnement insuffisant'
Note: See TracChangeset for help on using the changeset viewer.