Index | Rundeck: P1SoM40 | Created: Thu May 9 03:30:17 EDT 2024 |
MDIAG_COM | File: MODEL_COM.f |
Author : Original Development Team
Version:
Subroutines:
- aperiod
- aPERIOD finds a 7 or 12-character name for an accumulation period
if the earliest month is NOT the beginning of the 2-6 month period
the name will reflect that fact ONLY for 2 or 3-month periods
Global Variables:
- monacc :
integer, dimension(12)
- (1)=#Januaries, etc
Used by: | :def_rsf_acc | :giss_modele | :new_io_acc |
- sname_strlen :
integer, parameter
- Initial Value
= 30
Used by: | :ij_defs | BDWP_MOD | DIAGKS:keydj | DIAG_COM | DIAG_SERIAL:diag7p | DIAG_SERIAL:diag_isccp | DIAG_SERIAL:diagcp | DIAG_SERIAL:diagij | DIAG_SERIAL:diagil | DIAG_SERIAL:diagj | DIAG_SERIAL:ij_mapk | DIAG_SERIAL:ilmap | DIAG_SERIAL:jkmap | DIAG_SERIAL:jlmap | DIAG_SERIAL:keynrl | DIAG_SERIAL:keyvsums | DIAG_SERIAL:print_generic_jl | GC_COM | GISSOUT | ICEDYN_COM | LANDICE_COM | ODIAG |
- units_strlen :
integer, parameter
- Initial Value
= 30
Used by: | BDWP_MOD | DIAG_COM | DIAG_SERIAL:diag7p | DIAG_SERIAL:diag_isccp | DIAG_SERIAL:diagcp | DIAG_SERIAL:diagij | DIAG_SERIAL:diagil | DIAG_SERIAL:diagj | DIAG_SERIAL:ij_mapk | DIAG_SERIAL:ilmap | DIAG_SERIAL:jkmap | DIAG_SERIAL:jlmap | DIAG_SERIAL:print_generic_jl | GC_COM | GISSOUT | ICEDYN_COM | LANDICE_COM | ODIAG |
- lname_strlen :
integer, parameter
- Initial Value
= 80
Used by: | :ij_defs | BDWP_MOD | DIAG_COM | DIAG_SERIAL:diag7p | DIAG_SERIAL:diag_isccp | DIAG_SERIAL:diagcp | DIAG_SERIAL:diagij | DIAG_SERIAL:diagil | DIAG_SERIAL:diagj | DIAG_SERIAL:ij_mapk | DIAG_SERIAL:ilmap | DIAG_SERIAL:jkmap | DIAG_SERIAL:jlmap | DIAG_SERIAL:print_generic_jl | GC_COM | GISSOUT | ICEDYN_COM | LANDICE_COM | ODIAG | SUBDAILY:get_subdd |
- string :
- MONyyr1-yyr2
- acc_period :
character*12, character(len=:), allocatable
Used by: | :giss_modele | DIAG_SERIAL:diag7p | DIAG_SERIAL:diag_isccp | DIAG_SERIAL:diagcp | DIAG_SERIAL:diagdd | DIAG_SERIAL:diagdh | DIAG_SERIAL:diagij | DIAG_SERIAL:diagil | DIAG_SERIAL:diagj | DIAG_SERIAL:diagjk | DIAG_SERIAL:ij_mapk | DIAG_SERIAL:ijkmap | DIAG_SERIAL:ijlmap | DIAG_SERIAL:ilmap | DIAG_SERIAL:jkmap | DIAG_SERIAL:jlmap | DIAG_SERIAL:print_generic_jl |
- month :
character(len=:), allocatable
- year_1 :
character(len=:), allocatable
- year_2 :
character(len=:), allocatable
- acc_period :
character*12, character(len=:), allocatable
Used by: | :giss_modele | DIAG_SERIAL:diag7p | DIAG_SERIAL:diag_isccp | DIAG_SERIAL:diagcp | DIAG_SERIAL:diagdd | DIAG_SERIAL:diagdh | DIAG_SERIAL:diagij | DIAG_SERIAL:diagil | DIAG_SERIAL:diagj | DIAG_SERIAL:diagjk | DIAG_SERIAL:ij_mapk | DIAG_SERIAL:ijkmap | DIAG_SERIAL:ijlmap | DIAG_SERIAL:ilmap | DIAG_SERIAL:jkmap | DIAG_SERIAL:jlmap | DIAG_SERIAL:print_generic_jl |
- base_file_name :
character(len=:), allocatable
- ia_cpl :
integer, parameter
- idacc-index currently associated with DTsrc, placed
Initial Value= 1
Used by: | :init_icedyn | :init_odiag | :oijl_prep | DIAG_COM |
- make_timeaxis :
logical, public
- whether scaled monthly output files should contain
Initial Value= .false.
Used by: | :gc_defs | :ij_defs | :ijhc_defs | :ijk_defs | :ijl_defs | :init_icedyn | :init_model | :init_odiag | :j_defs | :jl_defs |