| Type | Visibility | Attributes | Name | Initial | |||
|---|---|---|---|---|---|---|---|
| real, | public, | ALLOCATABLE, DIMENSION(:), SAVE | :: | io_lat | |||
| real, | public, | ALLOCATABLE, DIMENSION(:), SAVE | :: | io_lon | |||
| integer, | public, | SAVE | :: | phys_domain_id | |||
| integer, | public, | SAVE | :: | npstn | |||
| integer, | public, | ALLOCATABLE, DIMENSION(:), SAVE | :: | nptabij | |||
| integer, | public, | SAVE | :: | itau_iophy |
WARNING, only itau_iophy needs to be put in a THREADPRIVATE statement, io_lat,io_lon,phys_domain_id,npstn,nptabij are shared between OMP tasks |
||
| logical, | public | :: | check_dim | = | .false. |
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| type(ctrl_out), | intent(in) | :: | var | |||
| real, | intent(in), | DIMENSION(:) | :: | field | ||
| integer, | intent(in), | optional | :: | STD_iff |
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| type(ctrl_out), | intent(in) | :: | var | |||
| real, | intent(in), | DIMENSION(:,:) | :: | field | ||
| integer, | intent(in), | optional | :: | STD_iff |
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| integer, | intent(in) | :: | nid | |||
| logical, | intent(in) | :: | lpoint | |||
| character(len=*), | intent(in) | :: | name | |||
| integer, | intent(in) | :: | itau | |||
| real, | intent(in), | DIMENSION(:) | :: | field |
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| integer, | intent(in) | :: | nid | |||
| logical, | intent(in) | :: | lpoint | |||
| character(len=*), | intent(in) | :: | name | |||
| integer, | intent(in) | :: | itau | |||
| real, | intent(in), | DIMENSION(:,:) | :: | field |
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| character(len=*), | intent(in) | :: | field_name | |||
| real, | intent(in), | DIMENSION(:) | :: | field |
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| character(len=*), | intent(in) | :: | field_name | |||
| real, | intent(in), | DIMENSION(:,:) | :: | field |
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| character(len=*), | intent(in) | :: | field_name | |||
| real, | intent(in) | :: | field |
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| character(len=*), | intent(in) | :: | name | |||
| integer, | intent(in) | :: | itau0 | |||
| real, | intent(in) | :: | zjulian | |||
| real, | intent(in) | :: | dtime | |||
| integer, | intent(out) | :: | nhori | |||
| integer, | intent(out) | :: | nid_day |
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| character(len=*), | intent(in) | :: | name | |||
| integer, | intent(in) | :: | itau0 | |||
| real, | intent(in) | :: | zjulian | |||
| real, | intent(in) | :: | dtime | |||
| character(len=*), | intent(in) | :: | ffreq | |||
| integer, | intent(in) | :: | lev | |||
| integer, | intent(out) | :: | nhori | |||
| integer, | intent(out) | :: | nid_day |
! ! print qui sert a reordonner les points stations selon l'ordre CFMIP ! ne pas enlever !
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| real, | intent(in), | DIMENSION(klon) | :: | rlon | ||
| real, | intent(in), | DIMENSION(klon) | :: | rlat | ||
| integer, | intent(in) | :: | pim | |||
| integer, | intent(in), | DIMENSION(pim) | :: | tabij | ||
| integer, | intent(in), | DIMENSION(pim) | :: | ipt | ||
| integer, | intent(in), | DIMENSION(pim) | :: | jpt | ||
| real, | intent(in), | DIMENSION(pim) | :: | plon | ||
| real, | intent(in), | DIMENSION(pim) | :: | plat | ||
| real, | intent(out), | DIMENSION(pim,2) | :: | plon_bounds | ||
| real, | intent(out), | DIMENSION(pim,2) | :: | plat_bounds | ||
| character(len=20), | intent(in) | :: | nname | |||
| integer, | intent(in) | :: | itau0 | |||
| real, | intent(in) | :: | zjulian | |||
| real, | intent(in) | :: | dtime | |||
| integer, | intent(out) | :: | nnhori | |||
| integer, | intent(out) | :: | nnid_day |
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| integer, | intent(in) | :: | ito |
(I) dtnb : total number of domains (I) dnb : domain number (I) did(:) : distributed dimensions identifiers (up to 5 dimensions are supported) (I) dsg(:) : total number of points for each dimension (I) dsl(:) : local number of points for each dimension (I) dpf(:) : position of first local point for each dimension (I) dpl(:) : position of last local point for each dimension (I) dhs(:) : start halo size for each dimension (I) dhe(:) : end halo size for each dimension (C) cdnm : Model domain definition name. The names actually supported are : "BOX", "APPLE", "ORANGE". These names are case insensitive.
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| real, | intent(in), | DIMENSION(klon) | :: | rlat | ||
| real, | intent(in), | DIMENSION(klon) | :: | rlon |
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| real, | intent(in), | DIMENSION(nbp_lat) | :: | lat | ||
| real, | intent(in), | DIMENSION(nbp_lon) | :: | lon |
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| character(len=*), | intent(in) | :: | name | |||
| integer, | intent(in) | :: | itau0 | |||
| real, | intent(in) | :: | zjulian | |||
| real, | intent(in) | :: | dtime | |||
| character(len=*), | intent(in) | :: | ffreq | |||
| integer, | intent(in) | :: | lev | |||
| integer, | intent(out) | :: | nhori | |||
| integer, | intent(out) | :: | nid_day |
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| character(len=*), | intent(in) | :: | name | |||
| integer, | intent(in) | :: | itau0 | |||
| real, | intent(in) | :: | zjulian | |||
| real, | intent(in) | :: | dtime | |||
| integer, | intent(out) | :: | nhori | |||
| integer, | intent(out) | :: | nid_day |
! ! print qui sert a reordonner les points stations selon l'ordre CFMIP ! ne pas enlever !
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| real, | intent(in), | DIMENSION(klon) | :: | rlon | ||
| real, | intent(in), | DIMENSION(klon) | :: | rlat | ||
| integer, | intent(in) | :: | pim | |||
| integer, | intent(in), | DIMENSION(pim) | :: | tabij | ||
| integer, | intent(in), | DIMENSION(pim) | :: | ipt | ||
| integer, | intent(in), | DIMENSION(pim) | :: | jpt | ||
| real, | intent(in), | DIMENSION(pim) | :: | plon | ||
| real, | intent(in), | DIMENSION(pim) | :: | plat | ||
| real, | intent(out), | DIMENSION(pim,2) | :: | plon_bounds | ||
| real, | intent(out), | DIMENSION(pim,2) | :: | plat_bounds | ||
| character(len=20), | intent(in) | :: | nname | |||
| integer, | intent(in) | :: | itau0 | |||
| real, | intent(in) | :: | zjulian | |||
| real, | intent(in) | :: | dtime | |||
| integer, | intent(out) | :: | nnhori | |||
| integer, | intent(out) | :: | nnid_day |
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| integer | :: | iff | ||||
| logical | :: | lpoint | ||||
| integer, | DIMENSION(nfiles) | :: | flag_var | |||
| character(len=20) | :: | nomvar | ||||
| character(len=*) | :: | titrevar | ||||
| character(len=*) | :: | unitvar |
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| integer | :: | iff | ||||
| logical | :: | lpoint | ||||
| integer, | DIMENSION(nfiles) | :: | flag_var | |||
| character(len=20) | :: | nomvar | ||||
| character(len=*) | :: | titrevar | ||||
| character(len=*) | :: | unitvar |
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| integer | :: | iff | ||||
| type(ctrl_out) | :: | var |
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| integer | :: | iff | ||||
| type(ctrl_out) | :: | var |
! Lecture des noms et niveau de sortie des variables dans output.def
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| character(len=*), | intent(inout) | :: | nam_var | |||
| integer, | intent(inout) | :: | flag_var(nfiles) |
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| integer, | intent(in) | :: | nid | |||
| logical, | intent(in) | :: | lpoint | |||
| character(len=*), | intent(in) | :: | name | |||
| integer, | intent(in) | :: | itau | |||
| real, | intent(in), | DIMENSION(:) | :: | field |
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| integer, | intent(in) | :: | nid | |||
| logical, | intent(in) | :: | lpoint | |||
| character(len=*), | intent(in) | :: | name | |||
| integer, | intent(in) | :: | itau | |||
| real, | intent(in), | DIMENSION(:,:) | :: | field |
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| type(ctrl_out), | intent(in) | :: | var | |||
| real, | intent(in), | DIMENSION(:) | :: | field | ||
| integer, | intent(in), | optional | :: | STD_iff |
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| type(ctrl_out), | intent(in) | :: | var | |||
| real, | intent(in), | DIMENSION(:,:) | :: | field | ||
| integer, | intent(in), | optional | :: | STD_iff |
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| character(len=*), | intent(in) | :: | field_name | |||
| real, | intent(in), | DIMENSION(:) | :: | field |
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| character(len=*), | intent(in) | :: | field_name | |||
| real, | intent(in), | DIMENSION(:,:) | :: | field |
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| character(len=*), | intent(in) | :: | field_name | |||
| real, | intent(in) | :: | field |