Changeset 4858 for palm/trunk/LIB
- Timestamp:
- Jan 29, 2021 3:27:59 PM (4 years ago)
- Location:
- palm/trunk/LIB/rrtmg
- Files:
-
- 5 edited
-
install_rrtmg (modified) (2 diffs)
-
rrlw_ncpar.f90 (modified) (1 diff)
-
rrsw_ncpar.f90 (modified) (1 diff)
-
rrtmg_lw_read_nc.f90 (modified) (16 diffs)
-
rrtmg_sw_read_nc.f90 (modified) (14 diffs)
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/LIB/rrtmg/install_rrtmg
r4843 r4858 1 #!/bin/ ksh1 #!/bin/bash 2 2 3 3 # install_rrtmg - install script for creating a RRTMG library … … 27 27 # ----------------- 28 28 # $Id$ 29 # switch from ksh to bash 30 # 31 # 29 32 # 30 33 # 1613 2015-07-08 14:53:29Z maronga -
palm/trunk/LIB/rrtmg/rrlw_ncpar.f90
r1585 r4858 5 5 save 6 6 7 character(len=100) :: rrtmg_lw_input_file_name = 'RRTMG_LW' 8 7 9 real(kind=rb), parameter :: cpdair = 1003.5 ! Specific heat capacity of dry air 8 10 ! at constant pressure at 273 K -
palm/trunk/LIB/rrtmg/rrsw_ncpar.f90
r1585 r4858 5 5 save 6 6 7 character(len=100) :: rrtmg_sw_input_file_name = 'RRTMG_SW' 8 7 9 real(kind=rb), parameter :: cpdair = 1003.5 ! Specific heat capacity of dry air 8 10 ! at constant pressure at 273 K -
palm/trunk/LIB/rrtmg/rrtmg_lw_read_nc.f90
r1585 r4858 32 32 33 33 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) 35 35 36 36 status(2) = nf90_inq_varid(ncid,"PlanckFractionLowerAtmos",varID) … … 98 98 99 99 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) 101 101 102 102 status(2) = nf90_inq_varid(ncid,"PlanckFractionLowerAtmos",varID) … … 154 154 155 155 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) 157 157 158 158 status(2) = nf90_inq_varid(ncid,"PlanckFractionLowerAtmos",varID) … … 220 220 221 221 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) 223 223 224 224 status(2) = nf90_inq_varid(ncid,"PlanckFractionLowerAtmos",varID) … … 276 276 277 277 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) 279 279 280 280 status(2) = nf90_inq_varid(ncid,"PlanckFractionLowerAtmos",varID) … … 346 346 347 347 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) 349 349 350 350 status(2) = nf90_inq_varid(ncid,"PlanckFractionLowerAtmos",varID) … … 413 413 414 414 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) 416 416 417 417 status(2) = nf90_inq_varid(ncid,"PlanckFractionLowerAtmos",varID) … … 482 482 483 483 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) 485 485 486 486 status(2) = nf90_inq_varid(ncid,"PlanckFractionLowerAtmos",varID) … … 583 583 584 584 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) 586 586 587 587 status(2) = nf90_inq_varid(ncid,"PlanckFractionLowerAtmos",varID) … … 649 649 650 650 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) 652 652 653 653 status(2) = nf90_inq_varid(ncid,"PlanckFractionLowerAtmos",varID) … … 705 705 706 706 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) 708 708 709 709 status(2) = nf90_inq_varid(ncid,"PlanckFractionLowerAtmos",varID) … … 771 771 772 772 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) 774 774 775 775 status(2) = nf90_inq_varid(ncid,"PlanckFractionLowerAtmos",varID) … … 817 817 818 818 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) 820 820 821 821 status(2) = nf90_inq_varid(ncid,"PlanckFractionLowerAtmos",varID) … … 887 887 888 888 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) 890 890 891 891 status(2) = nf90_inq_varid(ncid,"PlanckFractionLowerAtmos",varID) … … 942 942 943 943 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) 945 945 946 946 status(2) = nf90_inq_varid(ncid,"PlanckFractionLowerAtmos",varID) … … 993 993 994 994 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) 996 996 997 997 status(2) = nf90_inq_varid(ncid,"PlanckFractionLowerAtmos",varID) -
palm/trunk/LIB/rrtmg/rrtmg_sw_read_nc.f90
r1585 r4858 31 31 32 32 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) 34 34 35 35 status(2) = nf90_inq_varid(ncid,"SolarSourceFunctionLowerAtmos",varID) … … 87 87 88 88 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) 90 90 91 91 status(2) = nf90_inq_varid(ncid,"SolarSourceFunctionUpperAtmos",varID) … … 147 147 148 148 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) 150 150 151 151 status(2) = nf90_inq_varid(ncid,"SolarSourceFunctionLowerAtmos",varID) … … 203 203 204 204 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) 206 206 207 207 status(2) = nf90_inq_varid(ncid,"SolarSourceFunctionLowerAtmos",varID) … … 260 260 261 261 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) 263 263 264 264 status(2) = nf90_inq_varid(ncid,"SolarSourceFunctionLowerAtmos",varID) … … 327 327 328 328 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) 330 330 331 331 status(2) = nf90_inq_varid(ncid,"SolarSourceFunctionLowerAtmos",varID) … … 387 387 388 388 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) 390 390 391 391 status(2) = nf90_inq_varid(ncid,"SolarSourceFunctionLowerAtmos",varID) … … 441 441 442 442 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) 444 444 445 445 status(2) = nf90_inq_varid(ncid,"SolarSourceFunctionLowerAtmos",varID) … … 490 490 491 491 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) 493 493 494 494 status(2) = nf90_inq_varid(ncid,"SolarSourceFunctionLowerAtmos",varID) … … 559 559 560 560 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) 562 562 563 563 status(2) = nf90_inq_varid(ncid,"SolarSourceFunctionLowerAtmos",varID) … … 609 609 610 610 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) 612 612 613 613 status(2) = nf90_inq_varid(ncid,"SolarSourceFunctionLowerAtmos",varID) … … 643 643 644 644 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) 646 646 647 647 status(2) = nf90_inq_varid(ncid,"SolarSourceFunctionLowerAtmos",varID) … … 689 689 690 690 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) 692 692 693 693 status(2) = nf90_inq_varid(ncid,"SolarSourceFunctionUpperAtmos",varID) … … 739 739 740 740 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) 742 742 743 743 status(2) = nf90_inq_varid(ncid,"SolarSourceFunctionLowerAtmos",varID)
Note: See TracChangeset
for help on using the changeset viewer.
