- Timestamp:
- Jul 24, 2024, 2:54:37 PM (4 months ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ6/branches/Amaury_dev/libf/phylmd/Dust/coarsemission.f90
r5104 r5116 94 94 REAL :: dust_ec(klon) 95 95 96 real:: tmp_var2(klon, nbtr) ! auxiliary variable to replace source96 REAL :: tmp_var2(klon, nbtr) ! auxiliary variable to replace source 97 97 REAL :: qmin, qmax 98 98 !----------------------DUST Sahara --------------- … … 195 195 196 196 DO i = 1, klon 197 if (maskd(i)>0) then197 if (maskd(i)>0) THEN 198 198 IF(id_fine>0) source_tr(i, id_fine) = & 199 199 scale_param_dustacc(iregion_dust(i)) * & … … 266 266 ENDDO 267 267 CALL minmaxsource(tmp_var2, qmin, qmax, 'src: before SS emiss') 268 IF(id_coss>0) then268 IF(id_coss>0) THEN 269 269 print *, 'Source = ', SUM(source_tr(:, id_coss)), & 270 270 MINVAL(source_tr(:, id_coss)), MAXVAL(source_tr(:, id_coss)) … … 299 299 ENDDO 300 300 CALL minmaxsource(tmp_var2, qmin, qmax, 'src: after SS emiss') 301 IF(id_coss>0) then301 IF(id_coss>0) THEN 302 302 print *, 'Source = ', SUM(source_tr(:, id_coss)), & 303 303 MINVAL(source_tr(:, id_coss)), MAXVAL(source_tr(:, id_coss))
Note: See TracChangeset
for help on using the changeset viewer.