Ignore:
Timestamp:
Aug 2, 2024, 9:58:25 PM (5 months ago)
Author:
abarral
Message:

Put dimensions.h and paramet.h into modules

File:
1 edited

Legend:

Unmodified
Added
Removed

  • LMDZ6/branches/Amaury_dev/libf/phylmd/rrtm/suphec.F90

    r5154 r5159  
    129129
    130130IF (LHOOK) CALL DR_HOOK('SUPHEC',0,ZHOOK_HANDLE)
    131 !
     131
    132132  IF (OK_BAD_ECMWF_THERMO) THEN
    133 !
     133
    134134     ! Modify constants defined in suphel.F90 and set RVTMP2 to 0.
    135135     ! CALL GSTATS(1811,0) ! MPL 28.11.08
    … …  
    169169     ! Keep constants defined in suphel.F90
    170170     RTICE=RTT-23._JPRB
    171 !
     171
    172172  ENDIF  ! (OK_BAD_ECMWF_THERMO)
    173173
Note: See TracChangeset for help on using the changeset viewer.