/[lmdze]/trunk/phylmd/phyetat0.f90
ViewVC logotype

Diff of /trunk/phylmd/phyetat0.f90

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 191 by guez, Mon May 9 19:56:28 2016 UTC revision 203 by guez, Wed Jun 8 15:10:12 2016 UTC
# Line 146  contains Line 146  contains
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    
Legend:
Removed from v.191  
changed lines
  Added in v.203
  ViewVC Help
Powered by ViewVC 1.1.21