| Type | Visibility | Attributes | Name | Initial | |||
|---|---|---|---|---|---|---|---|
| logical, | public, | SAVE | :: | gwd_reproductibilite_mpiomp | = | .true. | |
| logical, | public, | SAVE | :: | firstcall | = | .TRUE. | |
| integer, | public, | parameter | :: | NK | = | 2 | |
| integer, | public, | parameter | :: | NP | = | 2 | |
| integer, | public, | parameter | :: | NO | = | 2 | |
| integer, | public, | parameter | :: | NW | = | NK*NP*NO | |
| integer, | public, | parameter | :: | NA | = | 5 |
CORIO(:)2*TANH(ROTBA(:)/CORIO(:)2) &
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| real, | intent(in) | :: | DTIME | |||
| real, | intent(in) | :: | PP(KLON,KLEV) | |||
| real, | intent(in) | :: | PLAT(KLON) | |||
| real, | intent(in) | :: | TT(KLON,KLEV) | |||
| real, | intent(in) | :: | UU(KLON,KLEV) | |||
| real, | intent(in) | :: | VV(KLON,KLEV) | |||
| real, | intent(in) | :: | ROT(KLON,KLEV) | |||
| real, | intent(out) | :: | zustr(KLON) | |||
| real, | intent(out) | :: | zvstr(KLON) | |||
| real, | intent(inout) | :: | d_u(KLON,KLEV) | |||
| real, | intent(inout) | :: | d_v(KLON,KLEV) | |||
| real, | intent(inout) | :: | east_gwstress(KLON,KLEV) | |||
| real, | intent(inout) | :: | west_gwstress(KLON,KLEV) |