1)
For each type of ocean (force, slab, couple) receive new fractions only if it's time
to modify (is_modified=true). Otherwise nothing is done (is_modified=false).
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| integer, | intent(in) | :: | itime | |||
| real, | intent(in) | :: | dtime |
|
||
| integer, | intent(in) | :: | jour | |||
| real, | intent(inout), | DIMENSION(klon,nbsrf) | :: | pctsrf | ||
| real, | intent(inout), | DIMENSION(klon,nbsrf) | :: | evap | ||
| real, | intent(inout), | DIMENSION(klon,nbsrf+1) | :: | z0m | ||
| real, | intent(inout), | DIMENSION(klon,nbsrf+1) | :: | z0h | ||
| real, | intent(inout), | DIMENSION(klon,nbsrf) | :: | agesno | ||
| real, | intent(inout), | DIMENSION(klon,nsw,nbsrf) | :: | alb_dir | ||
| real, | intent(inout), | DIMENSION(klon,nsw,nbsrf) | :: | alb_dif | ||
| real, | intent(inout), | DIMENSION(klon,nbsrf) | :: | tsurf | ||
| real, | intent(inout), | DIMENSION(klon,nbsrf) | :: | ustar | ||
| real, | intent(inout), | DIMENSION(klon,nbsrf) | :: | u10m | ||
| real, | intent(inout), | DIMENSION(klon,nbsrf) | :: | v10m |
REAL, DIMENSION(klon,klev+1,nbsrf), INTENT(INOUT) :: pbl_tke |
|
| real, | intent(inout), | DIMENSION(klon,klev+1,nbsrf+1) | :: | pbl_tke |
jyg |