Home


About us
PALM
PALM-4U
Installation
Release notes
Documentation
Getting Help
Gallery
Developers area

Ignore:
Timestamp:
Jan 29, 2021 3:27:59 PM (4 years ago)
Author:
raasch
Message:

rrtmg input file names changed, default value for unscheduled calls of the radiation model set to FALSE

File:
1 edited

Legend:

Unmodified
Added
Removed

  • palm/trunk/LIB/rrtmg/rrtmg_sw_read_nc.f90

    r1585 r4858  
    3131       
    3232        status(:)  = nf90_NoErr
    33         status(1)  = nf90_open('rrtmg_sw.nc',nf90_nowrite,ncid)
     33        status(1)  = nf90_open(trim(rrtmg_sw_input_file_name),nf90_nowrite,ncid)
    3434       
    3535        status(2)  = nf90_inq_varid(ncid,"SolarSourceFunctionLowerAtmos",varID)
    … …  
    8787       
    8888        status(:)  = nf90_NoErr
    89         status(1)  = nf90_open('rrtmg_sw.nc',nf90_nowrite,ncid)
     89        status(1)  = nf90_open(trim(rrtmg_sw_input_file_name),nf90_nowrite,ncid)
    9090       
    9191        status(2)  = nf90_inq_varid(ncid,"SolarSourceFunctionUpperAtmos",varID)
    … …  
    147147       
    148148        status(:)  = nf90_NoErr
    149         status(1)  = nf90_open('rrtmg_sw.nc',nf90_nowrite,ncid)
     149        status(1)  = nf90_open(trim(rrtmg_sw_input_file_name),nf90_nowrite,ncid)
    150150       
    151151        status(2)  = nf90_inq_varid(ncid,"SolarSourceFunctionLowerAtmos",varID)
    … …  
    203203       
    204204        status(:)  = nf90_NoErr
    205         status(1)  = nf90_open('rrtmg_sw.nc',nf90_nowrite,ncid)
     205        status(1)  = nf90_open(trim(rrtmg_sw_input_file_name),nf90_nowrite,ncid)
    206206       
    207207        status(2)  = nf90_inq_varid(ncid,"SolarSourceFunctionLowerAtmos",varID)
    … …  
    260260       
    261261        status(:)  = nf90_NoErr
    262         status(1)  = nf90_open('rrtmg_sw.nc',nf90_nowrite,ncid)
     262        status(1)  = nf90_open(trim(rrtmg_sw_input_file_name),nf90_nowrite,ncid)
    263263       
    264264        status(2)  = nf90_inq_varid(ncid,"SolarSourceFunctionLowerAtmos",varID)
    … …  
    327327       
    328328        status(:)  = nf90_NoErr
    329         status(1)  = nf90_open('rrtmg_sw.nc',nf90_nowrite,ncid)
     329        status(1)  = nf90_open(trim(rrtmg_sw_input_file_name),nf90_nowrite,ncid)
    330330       
    331331        status(2)  = nf90_inq_varid(ncid,"SolarSourceFunctionLowerAtmos",varID)
    … …  
    387387       
    388388        status(:)  = nf90_NoErr
    389         status(1)  = nf90_open('rrtmg_sw.nc',nf90_nowrite,ncid)
     389        status(1)  = nf90_open(trim(rrtmg_sw_input_file_name),nf90_nowrite,ncid)
    390390       
    391391        status(2)  = nf90_inq_varid(ncid,"SolarSourceFunctionLowerAtmos",varID)
    … …  
    441441       
    442442        status(:)  = nf90_NoErr
    443         status(1)  = nf90_open('rrtmg_sw.nc',nf90_nowrite,ncid)
     443        status(1)  = nf90_open(trim(rrtmg_sw_input_file_name),nf90_nowrite,ncid)
    444444       
    445445        status(2)  = nf90_inq_varid(ncid,"SolarSourceFunctionLowerAtmos",varID)
    … …  
    490490       
    491491        status(:)  = nf90_NoErr
    492         status(1)  = nf90_open('rrtmg_sw.nc',nf90_nowrite,ncid)
     492        status(1)  = nf90_open(trim(rrtmg_sw_input_file_name),nf90_nowrite,ncid)
    493493       
    494494        status(2)  = nf90_inq_varid(ncid,"SolarSourceFunctionLowerAtmos",varID)
    … …  
    559559       
    560560        status(:)  = nf90_NoErr
    561         status(1)  = nf90_open('rrtmg_sw.nc',nf90_nowrite,ncid)
     561        status(1)  = nf90_open(trim(rrtmg_sw_input_file_name),nf90_nowrite,ncid)
    562562       
    563563        status(2)  = nf90_inq_varid(ncid,"SolarSourceFunctionLowerAtmos",varID)
    … …  
    609609       
    610610        status(:)  = nf90_NoErr
    611         status(1)  = nf90_open('rrtmg_sw.nc',nf90_nowrite,ncid)
     611        status(1)  = nf90_open(trim(rrtmg_sw_input_file_name),nf90_nowrite,ncid)
    612612       
    613613        status(2)  = nf90_inq_varid(ncid,"SolarSourceFunctionLowerAtmos",varID)
    … …  
    643643       
    644644        status(:)  = nf90_NoErr
    645         status(1)  = nf90_open('rrtmg_sw.nc',nf90_nowrite,ncid)
     645        status(1)  = nf90_open(trim(rrtmg_sw_input_file_name),nf90_nowrite,ncid)
    646646       
    647647        status(2)  = nf90_inq_varid(ncid,"SolarSourceFunctionLowerAtmos",varID)
    … …  
    689689       
    690690        status(:)  = nf90_NoErr
    691         status(1)  = nf90_open('rrtmg_sw.nc',nf90_nowrite,ncid)
     691        status(1)  = nf90_open(trim(rrtmg_sw_input_file_name),nf90_nowrite,ncid)
    692692       
    693693        status(2)  = nf90_inq_varid(ncid,"SolarSourceFunctionUpperAtmos",varID)
    … …  
    739739       
    740740        status(:)  = nf90_NoErr
    741         status(1)  = nf90_open('rrtmg_sw.nc',nf90_nowrite,ncid)
     741        status(1)  = nf90_open(trim(rrtmg_sw_input_file_name),nf90_nowrite,ncid)
    742742       
    743743        status(2)  = nf90_inq_varid(ncid,"SolarSourceFunctionLowerAtmos",varID)
Note: See TracChangeset for help on using the changeset viewer.
                                                                                                                                                                                                                                                                                                                                                                               
  | Impressum | ©Leibniz Universität Hannover |