|
Last change
on this file since 3071 was
3070,
checked in by jbclement, 2 years ago
|
|
PEM:
Correction of a bug: the variable 'g' was not correctly initialized in 1D. A little of code cleaning.
JBC
|
|
File size:
1.2 KB
|
| Line | |
|---|
| 1 | SUBROUTINE compute_tendencies_slope(ngrid,nslope,min_ice_Y1,min_ice_Y2,tendencies_ice) |
|---|
| 2 | |
|---|
| 3 | implicit none |
|---|
| 4 | |
|---|
| 5 | !======================================================================= |
|---|
| 6 | ! |
|---|
| 7 | ! Compute the tendencies of the evolution of water ice over the years |
|---|
| 8 | ! |
|---|
| 9 | !======================================================================= |
|---|
| 10 | |
|---|
| 11 | ! arguments: |
|---|
| 12 | ! ---------- |
|---|
| 13 | ! INPUT |
|---|
| 14 | integer, intent(in) :: ngrid, nslope ! # of grid points along longitude/latitude/ total |
|---|
| 15 | real, dimension(ngrid,nslope), intent(in) :: min_ice_Y1 ! LON x LAT field : minimum of water ice at each point for the first year |
|---|
| 16 | real, dimension(ngrid,nslope), intent(in) :: min_ice_Y2 ! LON x LAT field : minimum of water ice at each point for the second year |
|---|
| 17 | |
|---|
| 18 | ! OUTPUT |
|---|
| 19 | real, dimension(ngrid,nslope), intent(out) :: tendencies_ice ! physical point field : difference between the minima = evolution of perenial ice |
|---|
| 20 | |
|---|
| 21 | !======================================================================= |
|---|
| 22 | |
|---|
| 23 | ! We compute the difference |
|---|
| 24 | tendencies_ice = min_ice_Y2 - min_ice_Y1 |
|---|
| 25 | |
|---|
| 26 | ! If the difference is too small; there is no evolution |
|---|
| 27 | where (abs(tendencies_ice) < 1.e-10) tendencies_ice = 0. |
|---|
| 28 | |
|---|
| 29 | END SUBROUTINE compute_tendencies_slope |
|---|
| 30 | |
|---|
Note: See
TracBrowser
for help on using the repository browser.
