test Program

Uses

  • program~~test~7~~UsesGraph program~test~7 test module~esmf_cfiofilemod ESMF_CFIOFileMod program~test~7->module~esmf_cfiofilemod module~esmf_cfiogridmod ESMF_CFIOGridMod program~test~7->module~esmf_cfiogridmod module~esmf_cfiomod ESMF_CFIOMod program~test~7->module~esmf_cfiomod module~esmf_cfiosdfmod ESMF_CFIOSdfMod program~test~7->module~esmf_cfiosdfmod module~esmf_cfiovarinfomod ESMF_CFIOVarInfoMod program~test~7->module~esmf_cfiovarinfomod module~esmf_cfiofilemod->module~esmf_cfiogridmod module~esmf_cfiofilemod->module~esmf_cfiovarinfomod module~esmf_cfioutilmod ESMF_CFIOUtilMod module~esmf_cfiofilemod->module~esmf_cfioutilmod iso_fortran_env iso_fortran_env module~esmf_cfiogridmod->iso_fortran_env module~esmf_cfiogridmod->module~esmf_cfioutilmod module~esmf_cfiomod->module~esmf_cfiofilemod module~esmf_cfiomod->module~esmf_cfiogridmod module~esmf_cfiomod->module~esmf_cfiosdfmod module~esmf_cfiomod->module~esmf_cfiovarinfomod ESMF ESMF module~esmf_cfiomod->ESMF module~esmf_cfiomod->iso_fortran_env module~esmf_cfiomod->module~esmf_cfioutilmod module~esmf_cfiosdfmod->module~esmf_cfiofilemod module~esmf_cfiosdfmod->module~esmf_cfiogridmod module~esmf_cfiosdfmod->module~esmf_cfiovarinfomod module~esmf_cfiosdfmod->iso_fortran_env module~esmf_cfiosdfmod->module~esmf_cfioutilmod netcdf netcdf module~esmf_cfiosdfmod->netcdf module~esmf_cfiovarinfomod->module~esmf_cfiogridmod module~esmf_cfiovarinfomod->module~esmf_cfioutilmod module~esmf_cfioutilmod->iso_fortran_env module~esmf_cfioutilmod->netcdf ESMF_CFIOBaseMod ESMF_CFIOBaseMod module~esmf_cfioutilmod->ESMF_CFIOBaseMod

Calls

program~~test~7~~CallsGraph program~test~7 test interface~esmf_cfiovarwrite ESMF_CFIOVarWrite program~test~7->interface~esmf_cfiovarwrite proc~esmf_cfiocreate ESMF_CFIOCreate program~test~7->proc~esmf_cfiocreate proc~esmf_cfiofileclose ESMF_CFIOFileClose program~test~7->proc~esmf_cfiofileclose proc~esmf_cfiofilecreate ESMF_CFIOFileCreate program~test~7->proc~esmf_cfiofilecreate proc~esmf_cfioget ESMF_CFIOGet program~test~7->proc~esmf_cfioget proc~esmf_cfiogridcreate ESMF_CFIOGridCreate program~test~7->proc~esmf_cfiogridcreate proc~esmf_cfiogridset ESMF_CFIOGridSet program~test~7->proc~esmf_cfiogridset proc~esmf_cfioset ESMF_CFIOSet program~test~7->proc~esmf_cfioset proc~esmf_cfiovarinfocreate ESMF_CFIOVarInfoCreate program~test~7->proc~esmf_cfiovarinfocreate proc~esmf_cfiovarinfoset ESMF_CFIOVarInfoSet program~test~7->proc~esmf_cfiovarinfoset proc~esmf_cfiofileclose->proc~esmf_cfioget proc~esmf_cfiosdffileclose ESMF_CFIOSdfFileClose proc~esmf_cfiofileclose->proc~esmf_cfiosdffileclose proc~esmf_cfiofilecreate->proc~esmf_cfioset ESMF_UtilStringUpperCase ESMF_UtilStringUpperCase proc~esmf_cfiofilecreate->ESMF_UtilStringUpperCase proc~esmf_cfiosdffilecreate ESMF_CFIOSdfFileCreate proc~esmf_cfiofilecreate->proc~esmf_cfiosdffilecreate proc~err err proc~esmf_cfioget->proc~err proc~addlist addList proc~esmf_cfioset->proc~addlist proc~esmf_cfioset->proc~err proc~strtoint strToInt proc~esmf_cfioset->proc~strtoint proc~esmf_cfiovarinfocreate->proc~esmf_cfiogridcreate proc~esmf_cfiovarinfoset->proc~addlist proc~esmf_cfiovarinfoset->proc~err

Variables

Type Attributes Name Initial
character(len=20) :: fileName
integer :: curTime
integer :: date
integer :: fmode
integer :: hhmmss(2) = (/0, 60000/)
integer :: i
integer :: im = 72
integer :: jm = 46
integer :: km = 18
integer :: rc
integer :: t
integer :: timeInc
logical :: passed = .true.
logical :: twoD
real :: ak(19) = (/291.70, 792.92, 2155.39, 4918.34, 8314.25, 7993.08, 7577.38, 7057.52, 6429.63, 5698.38, 4879.13, 3998.95, 3096.31, 2219.02, 1420.39, 754.13, 268.38, 0.0000, 0.0000/)
real :: bk(19) = (/0.0000, 0.0000, 0.0000, 0.0000, 0.0000, 0.0380541, 0.0873088, 0.1489307, 0.2232996, 0.3099406, 0.4070096, 0.5112977, 0.6182465, 0.7221927, 0.8168173, 0.8957590, 0.9533137, 0.9851122, 1.0/)
real :: dlat
real :: dlon
real :: kappa = 0.28571428571428575
real :: lat(46)
real :: lev(18) = (/100.5145, 118.2502, 139.115, 163.6615, 192.541, 226.5135, 266.4789, 313.4988, 368.8161, 433.8927, 510.4555, 600.5238, 696.793, 787.7, 867.1572, 929.6454, 970.5525, 992.555/)
real :: lon(72)
real, pointer :: ps(:,:,:)
real :: range(2) = (/-1.E10, 1.E10/)
real, pointer :: tmpu(:,:,:)
real, pointer :: ts(:,:,:)
real, pointer :: u(:,:,:)
real, pointer :: v(:,:,:)
type(ESMF_CFIO) :: cfio
type(ESMF_CFIOGrid), pointer :: grid
type(ESMF_CFIOVarInfo), pointer :: vars(:)