- Timestamp:
- 2019-07-26T11:32:13+02:00 (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/UKMO/NEMO_4.0_GO8_coupled_iodef/src/ICE/icethd_dh.F90
r10888 r11355 105 105 106 106 INTEGER :: num_iter_max ! Heat conservation 107 INTEGER, DIMENSION(1) :: imax 107 108 !!------------------------------------------------------------------ 108 109 … … 182 183 END IF 183 184 END DO 184 END DO 185 END DO 186 187 IF(narea == 419) THEN 188 WRITE(9419,*) 'max wfx_snw_sum_1d icethd_dh after inte5rnal melting = ',MAXVAL( ABS( wfx_snw_sum_1d(:) ) ) 189 imax = MAXLOC( ABS( wfx_snw_sum_1d(:) ) ) 190 WRITE(9419,*) 'at location = ',imax 191 WRITE(9419,*) 'zh_s = ',zh_s(imax,:) 192 WRITE(9419,*) 'a_i_1d = ',a_i_1d(imax) 193 ENDIF 194 195 IF(narea == 68) THEN 196 WRITE(968,*) 'max wfx_snw_sum_1d icethd_dh after inte5rnal melting = ',MAXVAL( ABS( wfx_snw_sum_1d(:) ) ) 197 imax = MAXLOC( ABS( wfx_snw_sum_1d(:) ) ) 198 WRITE(968,*) 'at location = ',imax 199 WRITE(968,*) 'zh_s = ',zh_s(imax,:) 200 WRITE(968,*) 'a_i_1d = ',a_i_1d(imax) 201 ENDIF 185 202 186 203 ! Snow precipitation
Note: See TracChangeset
for help on using the changeset viewer.