Changeset 4858 for palm/trunk/LIB/rrtmg


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

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

Location:
palm/trunk/LIB/rrtmg
Files:
5 edited

Legend:

Unmodified
Added
Removed
  • palm/trunk/LIB/rrtmg/install_rrtmg

    r4843 r4858  
    1 #!/bin/ksh
     1#!/bin/bash
    22
    33# install_rrtmg - install script for creating a RRTMG library
     
    2727# -----------------
    2828# $Id$
     29# switch from ksh to bash
     30#
     31#
    2932#
    3033# 1613 2015-07-08 14:53:29Z maronga
  • palm/trunk/LIB/rrtmg/rrlw_ncpar.f90

    r1585 r4858  
    55        save
    66       
     7        character(len=100) ::  rrtmg_lw_input_file_name = 'RRTMG_LW'
     8
    79        real(kind=rb), parameter :: cpdair = 1003.5  ! Specific heat capacity of dry air
    810                                                         ! at constant pressure at 273 K
  • palm/trunk/LIB/rrtmg/rrsw_ncpar.f90

    r1585 r4858  
    55    save
    66       
     7        character(len=100) ::  rrtmg_sw_input_file_name = 'RRTMG_SW'
     8
    79    real(kind=rb), parameter :: cpdair = 1003.5  ! Specific heat capacity of dry air
    810                                                         ! at constant pressure at 273 K
  • 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)
  • 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.