Ignore:
Timestamp:
May 18, 2021, 10:37:32 AM (4 years ago)
Author:
idelkadi
Message:

Implementation of the ECRAD code in LMDZ.
Addition of the data directory and the namelist_ecrad file necessary for ECRAD.

Location:
LMDZ6/branches/LMDZ-ECRAD
Files:
24 added
2 edited

Legend:

Unmodified
Added
Removed

  • LMDZ6/branches/LMDZ-ECRAD/libf/phylmd/ecrad/rrtm_kgb1.F90

    r3880 r3904  
    4141  CLF1 = DIRECTORY // "/RADRRTM"
    4242  WRITE(0,'(A,A)') 'Reading ',TRIM(CLF1)
    43 !  OPEN(NULRAD,FILE=TRIM(CLF1),FORM="UNFORMATTED",ACTION="READ",ERR=1000)
     43  OPEN(NULRAD,FILE=TRIM(CLF1),FORM="UNFORMATTED",ACTION="READ",ERR=1000,convert='big_endian')
    4444  !ELSE
    45   OPEN(NULRAD,FILE='RADRRTM',FORM="UNFORMATTED",ACTION="READ",ERR=1000)
     45 ! OPEN(NULRAD,FILE='RADRRTM',FORM="UNFORMATTED",ACTION="READ",ERR=1000)
    4646  !ENDIF
    4747  READ(NULRAD,ERR=1001) KAO_D,KBO_D

  • LMDZ6/branches/LMDZ-ECRAD/libf/phylmd/ecrad/srtm_kgb16.F90

    r3880 r3904  
    3939  CLF1 = DIRECTORY // "/RADSRTM"
    4040  WRITE(0,'(A,A)') 'Reading ',TRIM(CLF1)
    41   OPEN(NULRAD,FILE=TRIM(CLF1),FORM="UNFORMATTED",ACTION="READ",ERR=1000)
     41  OPEN(NULRAD,FILE=TRIM(CLF1),FORM="UNFORMATTED",ACTION="READ",ERR=1000,convert='big_endian')
    4242  !ELSE
    4343  !  OPEN(NULRAD,FILE='RADSRTM',FORM="UNFORMATTED",ACTION="READ",ERR=1000)
Note: See TracChangeset for help on using the changeset viewer.