146 |
fractint = pctsrf(:, is_ter) + pctsrf(:, is_lic) |
fractint = pctsrf(:, is_ter) + pctsrf(:, is_lic) |
147 |
DO i = 1 , klon |
DO i = 1 , klon |
148 |
IF ( abs(fractint(i) - zmasq(i) ) > EPSFRA ) THEN |
IF ( abs(fractint(i) - zmasq(i) ) > EPSFRA ) THEN |
149 |
WRITE(*, *) 'phyetat0: attention fraction terre pas ', & |
print *, 'phyetat0: attention fraction terre pas ', & |
150 |
'coherente ', i, zmasq(i), pctsrf(i, is_ter) & |
'coherente ', i, zmasq(i), pctsrf(i, is_ter), pctsrf(i, is_lic) |
|
, pctsrf(i, is_lic) |
|
151 |
ENDIF |
ENDIF |
152 |
END DO |
END DO |
153 |
fractint = pctsrf(:, is_oce) + pctsrf(:, is_sic) |
fractint = pctsrf(:, is_oce) + pctsrf(:, is_sic) |
154 |
DO i = 1 , klon |
DO i = 1 , klon |
155 |
IF ( abs( fractint(i) - (1. - zmasq(i))) > EPSFRA ) THEN |
IF ( abs( fractint(i) - (1. - zmasq(i))) > EPSFRA ) THEN |
156 |
WRITE(*, *) 'phyetat0 attention fraction ocean pas ', & |
print *, 'phyetat0 attention fraction ocean pas ', & |
157 |
'coherente ', i, zmasq(i) , pctsrf(i, is_oce) & |
'coherente ', i, zmasq(i) , pctsrf(i, is_oce), pctsrf(i, is_sic) |
|
, pctsrf(i, is_sic) |
|
158 |
ENDIF |
ENDIF |
159 |
END DO |
END DO |
160 |
|
|