Changeset 2311 for LMDZ5/trunk/libf/phylmd/change_srf_frac_mod.F90
- Timestamp:
- Jun 25, 2015, 9:45:24 AM (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ5/trunk/libf/phylmd/change_srf_frac_mod.F90
r2243 r2311 33 33 USE ocean_slab_mod, ONLY : fsic, ocean_slab_frac 34 34 USE indice_sol_mod 35 36 INCLUDE "iniprint.h"35 USE print_control_mod, ONLY: lunout 36 37 37 INCLUDE "YOMCST.h" 38 38 !albedo SB >>> … … 109 109 WRITE(lunout,*)'at point = ',MINLOC(pctsrf(:,:)) 110 110 WRITE(lunout,*)'value = ',MINVAL(pctsrf(:,:)) 111 CALL abort_ gcm('change_srf_frac','Negative fraction',1)111 CALL abort_physic('change_srf_frac','Negative fraction',1) 112 112 END IF 113 113 … … 116 116 DO i= 1, klon 117 117 tmpsum = SUM(pctsrf(i,:)) 118 IF (ABS(1. - tmpsum) > 0.05) CALL abort_ gcm('change_srf_frac','Total fraction not equal 1.',1)118 IF (ABS(1. - tmpsum) > 0.05) CALL abort_physic('change_srf_frac','Total fraction not equal 1.',1) 119 119 END DO 120 120 END IF
Note: See TracChangeset
for help on using the changeset viewer.