Changeset 2775 for LMDZ5

Timestamp:

Jan 26, 2017, 2:14:32 PM (8 years ago)

Author:

Laurent Fairhead

Message:

Test to avoid considering concentration of seaice as percentages
LF

File:

• LMDZ5/trunk/libf/dynphy_lonlat/phylmd/limit_netcdf.F90 (modified) (1 diff)

LMDZ5/trunk/libf/dynphy_lonlat/phylmd/limit_netcdf.F90

@@ -447 +447 @@
           CALL abort_physic('SIC','Found sea-ice fractions greater than 1.')
       ELSE IF(TRIM(unit_sic)=="X".OR.TRIM(unit_sic)=="%") THEN
-        IF(ANY(champ>100.0+EPSFRA)) &
-          CALL abort_physic('SIC','Found sea-ice percentages greater than 100.')
+!        IF(ANY(champ>100.0+EPSFRA)) &
+!          CALL abort_physic('SIC','Found sea-ice percentages greater than 100.')
+        IF(MAXVAL(champ)< 1.01) &
+          CALL abort_physic('SIC','All sea-ice percentages lower than 1.')
       END IF
     END IF