Ignore:
Timestamp:
Jul 24, 2024, 2:54:37 PM (4 months ago)
Author:
abarral
Message:

rename modules properly lmdz_*
move ismin, ismax, minmax into new lmdz_libmath.f90
(lint) uppercase fortran keywords

File:
1 edited

Legend:

Unmodified
Added
Removed
  • LMDZ6/branches/Amaury_dev/libf/phylmd/Dust/coarsemission.f90

    r5104 r5116  
    9494  REAL :: dust_ec(klon)
    9595
    96   real :: tmp_var2(klon, nbtr) ! auxiliary variable to replace source
     96  REAL :: tmp_var2(klon, nbtr) ! auxiliary variable to replace source
    9797  REAL :: qmin, qmax
    9898  !----------------------DUST Sahara ---------------
     
    195195
    196196    DO i = 1, klon
    197       if (maskd(i)>0) then
     197      if (maskd(i)>0) THEN
    198198        IF(id_fine>0)    source_tr(i, id_fine) = &
    199199                scale_param_dustacc(iregion_dust(i)) * &
     
    266266  ENDDO
    267267  CALL minmaxsource(tmp_var2, qmin, qmax, 'src: before SS emiss')
    268   IF(id_coss>0) then
     268  IF(id_coss>0) THEN
    269269    print *, 'Source = ', SUM(source_tr(:, id_coss)), &
    270270            MINVAL(source_tr(:, id_coss)), MAXVAL(source_tr(:, id_coss))
     
    299299  ENDDO
    300300  CALL minmaxsource(tmp_var2, qmin, qmax, 'src: after SS emiss')
    301   IF(id_coss>0) then
     301  IF(id_coss>0) THEN
    302302    print *, 'Source = ', SUM(source_tr(:, id_coss)), &
    303303            MINVAL(source_tr(:, id_coss)), MAXVAL(source_tr(:, id_coss))
Note: See TracChangeset for help on using the changeset viewer.