Ignore:
Timestamp:
Nov 5, 2018, 3:24:59 PM (6 years ago)
Author:
Laurent Fairhead
Message:

Undoing merge with trunk (r3356) to properly register Yann's latest modifications

Location:
LMDZ6/branches/DYNAMICO-conv
Files:
2 edited

Legend:

Unmodified
Added
Removed

  • LMDZ6/branches/DYNAMICO-conv

  • LMDZ6/branches/DYNAMICO-conv/libf/phylmd/rrtm/susw15.F90

    r3356 r3411  
    5858
    5959IMPLICIT NONE
    60 REAL(KIND=JPRB),SAVE   :: ZPDH2O=0.8_JPRB
    61 REAL(KIND=JPRB),SAVE   :: ZPDUMG=0.75_JPRB
    62 REAL(KIND=JPRB),SAVE   :: ZPRH2O=30000._JPRB
    63 REAL(KIND=JPRB),SAVE   :: ZPRUMG=30000._JPRB
     60REAL(KIND=JPRB)   :: ZPDH2O=0.8_JPRB
     61REAL(KIND=JPRB)   :: ZPDUMG=0.75_JPRB
     62REAL(KIND=JPRB)   :: ZPRH2O=30000._JPRB
     63REAL(KIND=JPRB)   :: ZPRUMG=30000._JPRB
    6464
    6565!$OMP THREADPRIVATE(zpdh2o,zpdumg,zprh2o,zprumg)
Note: See TracChangeset for help on using the changeset viewer.