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_lw_read_nc.f90

    r1585 r4858  
    3232       
    3333        status(:)   = nf90_NoErr
    34         status(1)   = nf90_open('rrtmg_lw.nc',nf90_nowrite,ncid)
     34        status(1)   = nf90_open(trim(rrtmg_lw_input_file_name),nf90_nowrite,ncid)
    3535       
    3636        status(2)   = nf90_inq_varid(ncid,"PlanckFractionLowerAtmos",varID)
    … …  
    9898       
    9999        status(:)   = nf90_NoErr
    100         status(1)   = nf90_open('rrtmg_lw.nc',nf90_nowrite,ncid)
     100        status(1)   = nf90_open(trim(rrtmg_lw_input_file_name),nf90_nowrite,ncid)
    101101       
    102102        status(2)   = nf90_inq_varid(ncid,"PlanckFractionLowerAtmos",varID)
    … …  
    154154       
    155155        status(:)   = nf90_NoErr
    156         status(1)   = nf90_open('rrtmg_lw.nc',nf90_nowrite,ncid)
     156        status(1)   = nf90_open(trim(rrtmg_lw_input_file_name),nf90_nowrite,ncid)
    157157       
    158158        status(2)   = nf90_inq_varid(ncid,"PlanckFractionLowerAtmos",varID)
    … …  
    220220       
    221221        status(:)   = nf90_NoErr
    222         status(1)   = nf90_open('rrtmg_lw.nc',nf90_nowrite,ncid)
     222        status(1)   = nf90_open(trim(rrtmg_lw_input_file_name),nf90_nowrite,ncid)
    223223       
    224224        status(2)   = nf90_inq_varid(ncid,"PlanckFractionLowerAtmos",varID)
    … …  
    276276       
    277277        status(:)   = nf90_NoErr
    278         status(1)   = nf90_open('rrtmg_lw.nc',nf90_nowrite,ncid)
     278        status(1)   = nf90_open(trim(rrtmg_lw_input_file_name),nf90_nowrite,ncid)
    279279       
    280280        status(2)   = nf90_inq_varid(ncid,"PlanckFractionLowerAtmos",varID)
    … …  
    346346       
    347347        status(:)   = nf90_NoErr
    348         status(1)   = nf90_open('rrtmg_lw.nc',nf90_nowrite,ncid)
     348        status(1)   = nf90_open(trim(rrtmg_lw_input_file_name),nf90_nowrite,ncid)
    349349       
    350350        status(2)   = nf90_inq_varid(ncid,"PlanckFractionLowerAtmos",varID)
    … …  
    413413       
    414414        status(:)   = nf90_NoErr
    415         status(1)   = nf90_open('rrtmg_lw.nc',nf90_nowrite,ncid)
     415        status(1)   = nf90_open(trim(rrtmg_lw_input_file_name),nf90_nowrite,ncid)
    416416       
    417417        status(2)   = nf90_inq_varid(ncid,"PlanckFractionLowerAtmos",varID)
    … …  
    482482       
    483483        status(:)   = nf90_NoErr
    484         status(1)   = nf90_open('rrtmg_lw.nc',nf90_nowrite,ncid)
     484        status(1)   = nf90_open(trim(rrtmg_lw_input_file_name),nf90_nowrite,ncid)
    485485       
    486486        status(2)   = nf90_inq_varid(ncid,"PlanckFractionLowerAtmos",varID)
    … …  
    583583       
    584584        status(:)   = nf90_NoErr
    585         status(1)   = nf90_open('rrtmg_lw.nc',nf90_nowrite,ncid)
     585        status(1)   = nf90_open(trim(rrtmg_lw_input_file_name),nf90_nowrite,ncid)
    586586       
    587587        status(2)   = nf90_inq_varid(ncid,"PlanckFractionLowerAtmos",varID)
    … …  
    649649       
    650650        status(:)   = nf90_NoErr
    651         status(1)   = nf90_open('rrtmg_lw.nc',nf90_nowrite,ncid)
     651        status(1)   = nf90_open(trim(rrtmg_lw_input_file_name),nf90_nowrite,ncid)
    652652       
    653653        status(2)   = nf90_inq_varid(ncid,"PlanckFractionLowerAtmos",varID)
    … …  
    705705       
    706706        status(:)   = nf90_NoErr
    707         status(1)   = nf90_open('rrtmg_lw.nc',nf90_nowrite,ncid)
     707        status(1)   = nf90_open(trim(rrtmg_lw_input_file_name),nf90_nowrite,ncid)
    708708       
    709709        status(2)   = nf90_inq_varid(ncid,"PlanckFractionLowerAtmos",varID)
    … …  
    771771       
    772772        status(:) = nf90_NoErr
    773         status(1) = nf90_open('rrtmg_lw.nc',nf90_nowrite,ncid)
     773        status(1) = nf90_open(trim(rrtmg_lw_input_file_name),nf90_nowrite,ncid)
    774774       
    775775        status(2) = nf90_inq_varid(ncid,"PlanckFractionLowerAtmos",varID)
    … …  
    817817       
    818818        status(:)  = nf90_NoErr
    819         status(1)  = nf90_open('rrtmg_lw.nc',nf90_nowrite,ncid)
     819        status(1)  = nf90_open(trim(rrtmg_lw_input_file_name),nf90_nowrite,ncid)
    820820       
    821821        status(2)  = nf90_inq_varid(ncid,"PlanckFractionLowerAtmos",varID)
    … …  
    887887       
    888888        status(:)  = nf90_NoErr
    889         status(1)  = nf90_open('rrtmg_lw.nc',nf90_nowrite,ncid)
     889        status(1)  = nf90_open(trim(rrtmg_lw_input_file_name),nf90_nowrite,ncid)
    890890       
    891891        status(2)  = nf90_inq_varid(ncid,"PlanckFractionLowerAtmos",varID)
    … …  
    942942       
    943943        status(:)  = nf90_NoErr
    944         status(1)  = nf90_open('rrtmg_lw.nc',nf90_nowrite,ncid)
     944        status(1)  = nf90_open(trim(rrtmg_lw_input_file_name),nf90_nowrite,ncid)
    945945       
    946946        status(2)  = nf90_inq_varid(ncid,"PlanckFractionLowerAtmos",varID)
    … …  
    993993       
    994994        status(:)  = nf90_NoErr
    995         status(1)  = nf90_open('rrtmg_lw.nc',nf90_nowrite,ncid)
     995        status(1)  = nf90_open(trim(rrtmg_lw_input_file_name),nf90_nowrite,ncid)
    996996       
    997997        status(2)  = nf90_inq_varid(ncid,"PlanckFractionLowerAtmos",varID)
Note: See TracChangeset for help on using the changeset viewer.
                                                                                                                                                                                                                                                                                                                                                                               
  | Impressum | ©Leibniz Universität Hannover |