!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
Public subroutines : !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
Private subroutine : !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
| Type | Visibility | Attributes | Name | Initial | |||
|---|---|---|---|---|---|---|---|
| logical, | public, | SAVE | :: | read_continents | = | .FALSE. |
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| integer, | intent(in) | :: | first_day |
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| integer, | intent(in) | :: | itime | |||
| real, | intent(in) | :: | dtime |
|
||
| integer, | intent(in) | :: | jour | |||
| real, | intent(out), | DIMENSION(klon,nbsrf) | :: | pctsrf_new | ||
| logical, | intent(out) | :: | is_modified |
|
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| integer, | intent(in) | :: | itime | |||
| real, | intent(in) | :: | dtime | |||
| integer, | intent(in) | :: | jour | |||
| integer, | intent(in) | :: | knon | |||
| integer, | intent(in), | DIMENSION(klon) | :: | knindex |
|
|
| real, | intent(out), | DIMENSION(klon) | :: | rugos_out | ||
| real, | intent(out), | DIMENSION(klon) | :: | alb_out |
|
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| integer, | intent(in) | :: | knon | |||
| integer, | intent(in), | DIMENSION(klon) | :: | knindex | ||
| real, | intent(out), | DIMENSION(klon) | :: | sst_out |
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| integer, | intent(in) | :: | knon | |||
| integer, | intent(in), | DIMENSION(klon) | :: | knindex | ||
| real, | intent(out), | DIMENSION(klon) | :: | hice_out |
1) Open the file limit.nc if it is the right moment to read, once a day. The file is read only by the master thread of the master mpi process(is_mpi_root) Check by the way if the number of records is correct.
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| integer, | intent(in) | :: | itime | |||
| real, | intent(in) | :: | dtime | |||
| integer, | intent(in) | :: | jour | |||
| logical, | intent(out) | :: | is_modified |
frequence de lecture des conditions limites (en pas de physique) |