Ignore:
Timestamp:
Aug 2, 2024, 2:12:03 PM (6 months ago)
Author:
abarral
Message:

Add missing klon on strataer_emiss_mod.F90
Correct various missing explicit declarations
Replace tabs by spaces (tabs are not part of the fortran charset)
Continue cleaning modules
Removed unused arguments and variables

Location:
LMDZ6/branches/Amaury_dev/libf/phylmd/rrtm
Files:
13 edited

Legend:

Unmodified
Added
Removed

  • LMDZ6/branches/Amaury_dev/libf/phylmd/rrtm/dates.F90

    r1990 r5158  
    2626! - gregoi: Conversion Ecart par rapport a une date fixe > Date.
    2727! - daplus: Quelle sera la date dans n jours (ou heures, etc...)?
    28 ! - amqhms_vers_dj: Conversion date grégorienne (en 5 entiers et un réel) > date julienne.
    29 ! - dj_vers_amqhms: Conversion date julienne > date grégorienne (en 5 entiers et un réel).
    30 ! - amqhmsree_vers_dj: Conversion date grégorienne (en un seul réel) > date julienne.
    31 ! - dj_vers_amqhmsree: Conversion date julienne > date grégorienne (en un seul réel).
    32 !
    33 ! --------------------------------------------------------------
    34 !
    35 ! Définition des dates employées ci-dessous:
     28! - amqhms_vers_dj: Conversion date gr�gorienne (en 5 entiers et un r�el) > date julienne.
     29! - dj_vers_amqhms: Conversion date julienne > date gr�gorienne (en 5 entiers et un r�el).
     30! - amqhmsree_vers_dj: Conversion date gr�gorienne (en un seul r�el) > date julienne.
     31! - dj_vers_amqhmsree: Conversion date julienne > date gr�gorienne (en un seul r�el).
     32!
     33! --------------------------------------------------------------
     34!
     35! D�finition des dates employ�es ci-dessous:
    3636!
    3737! Date julienne DJ:
    38 !       Elle est composée d'un réel.
    39 !       R1: Ce réel croît de 1 tous les jours,
    40 !               et vaut 2451545.0 le 1er janvier 2000 à 12 UTC.
    41 !
    42 ! Date grégorienne "en clair" AMQHMS:
    43 !       Elle est composée de 5 entiers et d'un réel.
    44 !       E1: Année (4 chiffres!)
     38!       Elle est compos�e d'un r�el.
     39!       R1: Ce r�el cro�t de 1 tous les jours,
     40!               et vaut 2451545.0 le 1er janvier 2000 � 12 UTC.
     41!
     42! Date gr�gorienne "en clair" AMQHMS:
     43!       Elle est compos�e de 5 entiers et d'un r�el.
     44!       E1: Ann�e (4 chiffres!)
    4545!       E2: Mois
    4646!       E3: Jour
    … …  
    8282!
    8383!-------------------------------------------------
    84 ! Date de validité.
     84! Date de validit�.
    8585!-------------------------------------------------
    8686!
    … …  
    9292zsssss=zsssss-real(imi)
    9393call amqhms_vers_dj(kan,kmo,kqu,ihe,imi,zs,zdj)
    94 zdj=zdj+pstati/86400. ! date julienne de validité.
    95 call dj_vers_amqhms(zdj,ianv,imov,iquv,ihev,imiv,zsv) ! date grégorienne de validité.
     94zdj=zdj+pstati/86400. ! date julienne de validit�.
     95call dj_vers_amqhms(zdj,ianv,imov,iquv,ihev,imiv,zsv) ! date gr�gorienne de validit�.
    9696if(pstati < 3600.) then
    9797!
    9898!-------------------------------------------------
    99 ! Echéance en minutes.
    100 !-------------------------------------------------
    101 !
    102         zech=pstati/60. ; clzue='mn'
     99! Ech�ance en minutes.
     100!-------------------------------------------------
     101!
     102    zech=pstati/60. ; clzue='mn'
    103103elseif(pstati < 259200.) then
    104104!
    105105!-------------------------------------------------
    106 ! Echéance en heures.
    107 !-------------------------------------------------
    108 !
    109         zech=pstati/3600. ; clzue='h'
     106! Ech�ance en heures.
     107!-------------------------------------------------
     108!
     109    zech=pstati/3600. ; clzue='h'
    110110else
    111111!
    112112!-------------------------------------------------
    113 ! Echéance en jours.
    114 !-------------------------------------------------
    115 !
    116         zech=pstati/86400. ; clzue='j'
     113! Ech�ance en jours.
     114!-------------------------------------------------
     115!
     116    zech=pstati/86400. ; clzue='j'
    117117endif
    118118!
    … …  
    125125!
    126126if(clze(len_trim(clze)-2:len_trim(clze)) == '.00') then
    127         clze=clze(1:len_trim(clze)-3)
     127    clze=clze(1:len_trim(clze)-3)
    128128endif
    129129clze=adjustl(clze)
    … …  
    139139!
    140140!-------------------------------------------------
    141 ! Les minutes de base et validité sont nulles.
     141! Les minutes de base et validit� sont nulles.
    142142! On ne les affiche pas.
    143143!-------------------------------------------------
    144144!
    145         write(cdtit,fmt='(a,i2,a,i2.2,a,i4.4,a,i2.2,3a,i2,a,i2.2,a,i4.4,a,i2.2,a)')&
    146         &'BASE ',kqu,'.',kmo,'.',kan,' ',ihe,'h UTC + ',clech(1:len_trim(clech))&
    147         &,', VALID ',iquv,'.',imov,'.',ianv,' ',ihev,'h UTC'
     145    write(cdtit,fmt='(a,i2,a,i2.2,a,i4.4,a,i2.2,3a,i2,a,i2.2,a,i4.4,a,i2.2,a)')&
     146    &'BASE ',kqu,'.',kmo,'.',kan,' ',ihe,'h UTC + ',clech(1:len_trim(clech))&
     147    &,', VALID ',iquv,'.',imov,'.',ianv,' ',ihev,'h UTC'
    148148else
    149149!
    150150!-------------------------------------------------
    151 ! Les minutes de base ou validité sont non nulles.
     151! Les minutes de base ou validit� sont non nulles.
    152152! On les affiche.
    153153!-------------------------------------------------
    154154!
    155         write(cdtit,fmt='(a,i2,a,i2.2,a,i4.4,a,i2.2,a,i2.2,3a,i2,a,i2.2,a,i4.4,a,i2.2,a,i2.2,a)')&
    156         &'BASE ',kqu,'.',kmo,'.',kan,' ',ihe,':',imi,' UTC + ',clech(1:len_trim(clech))&
    157         &,' VALID ',iquv,'.',imov,'.',ianv,' ',ihev,':',imiv,' UTC'
     155    write(cdtit,fmt='(a,i2,a,i2.2,a,i4.4,a,i2.2,a,i2.2,3a,i2,a,i2.2,a,i4.4,a,i2.2,a,i2.2,a)')&
     156    &'BASE ',kqu,'.',kmo,'.',kan,' ',ihe,':',imi,' UTC + ',clech(1:len_trim(clech))&
     157    &,' VALID ',iquv,'.',imov,'.',ianv,' ',ihev,':',imiv,' UTC'
    158158endif
    159159end
    … …  
    209209!
    210210!-------------------------------------------------
    211 ! Date courante à la f90.
     211! Date courante � la f90.
    212212!-------------------------------------------------
    213213!
    … …  
    259259! --------------------------------------------------------------------------
    260260! En entree:
    261 ! kaaaa année (4 chiffres!)
     261! kaaaa ann�e (4 chiffres!)
    262262! kmm   mois
    263 ! kqq   quantième du mois
     263! kqq   quanti�me du mois
    264264! khh   heure
    265265! kmn   minute
    266266! ps    seconde
    267267! En sortie:
    268 ! pdj date julienne associée à la date grégorienne UTC d'entrée
     268! pdj date julienne associ�e � la date gr�gorienne UTC d'entr�e
    269269! --------------------------------------------------------------------------
    270270
    … …  
    286286!
    287287!-------------------------------------------------
    288 ! Nombre de jours écoulés entre la date
    289 ! d'entrée à 0h UTC et le 1er janvier 2000 à 0h UTC.
     288! Nombre de jours �coul�s entre la date
     289! d'entr�e � 0h UTC et le 1er janvier 2000 � 0h UTC.
    290290!-------------------------------------------------
    291291!
    … …  
    476476! --------------------------------------------------------------------------
    477477! En entree:
    478 ! pdj date julienne associée à la date grégorienne UTC d'entrée
    479 ! En sortie:
    480 ! kaaaa année (4 chiffres!)
     478! pdj date julienne associ�e � la date gr�gorienne UTC d'entr�e
     479! En sortie:
     480! kaaaa ann�e (4 chiffres!)
    481481! kmm   mois
    482 ! kqq   quantième du mois
     482! kqq   quanti�me du mois
    483483! khh   heure
    484484! kmn   minute
    … …  
    487487!
    488488!-------------------------------------------------
    489 ! Nombre de jours entre le 1er janvier 2000 à 0 UTC
     489! Nombre de jours entre le 1er janvier 2000 � 0 UTC
    490490! et la date julienne courante.
    491491!-------------------------------------------------
    … …  
    517517!
    518518!-------------------------------------------------
    519 ! Date grégorienne associée.
     519! Date gr�gorienne associ�e.
    520520!-------------------------------------------------
    521521!
    … …  
    563563!
    564564!-------------------------------------------------
    565 ! Conversion grégorien julien; cible 5 entiers et un réel.
     565! Conversion gr�gorien julien; cible 5 entiers et un r�el.
    566566!-------------------------------------------------
    567567!
    … …  
    569569!
    570570!-------------------------------------------------
    571 ! On passe de ces 5 entiers et un réel à un seul réel.
     571! On passe de ces 5 entiers et un r�el � un seul r�el.
    572572!-------------------------------------------------
    573573!
    … …  
    591591! pgrer date en clair au format AAAAMMQQ.HHMMSS
    592592! En sortie:
    593 ! pdj date julienne associée à la date grégorienne
     593! pdj date julienne associ�e � la date gr�gorienne
    594594! --------------------------------------------------------------------------
    595595!
    … …  
    602602!
    603603!-------------------------------------------------
    604 ! On passe de cette date grégorienne donnée
    605 ! comme un seul réel à 5 entiers et un réel.
     604! On passe de cette date gr�gorienne donn�e
     605! comme un seul r�el � 5 entiers et un r�el.
    606606!-------------------------------------------------
    607607!
    … …  
    619619!
    620620!-------------------------------------------------
    621 ! Conversion grégorien julien; cible 5 entiers et un réel.
     621! Conversion gr�gorien julien; cible 5 entiers et un r�el.
    622622!-------------------------------------------------
    623623!
    … …  
    10581058if(ibissext == 1) ijours(2)=29
    10591059! *       Boucle sur les jours
    1060 do ieci=1,iec
     1060DO ieci=1,iec
    10611061  iqq=iqq+1
    10621062  if(iqq > ijours(imm)) then

  • LMDZ6/branches/Amaury_dev/libf/phylmd/rrtm/eq_regions_mod.F90

    r5133 r5158  
    150150if( l_regions_debug )then
    151151  write(*,'("eq_regions: N=",I6," n_regions_ns=",I4)') N,n_regions_ns
    152   do j=1,n_regions_ns
     152  DO j=1,n_regions_ns
    153153    write(*,'("eq_regions: n_regions(",I4,")=",I4)') j,n_regions(j)
    154154  enddo
    … …  
    207207  a_fitting = (pi-2.0_jprb*c_polar)/float(n_collars)
    208208  ideal_region_area = area_of_ideal_region(N)
    209   do collar_n=1,n_collars
     209  DO collar_n=1,n_collars
    210210    ideal_collar_area = area_of_collar(c_polar+(collar_n-1)*a_fitting, &
    211211     & c_polar+collar_n*a_fitting)
    … …  
    248248n_regions(1:n_collars+2) = r_regions(:)
    249249discrepancy = 0.0_jprb
    250 do zone_n = 1,n_collars+2
     250DO zone_n = 1,n_collars+2
    251251    n_regions(zone_n) = nint(r_regions(zone_n)+discrepancy);
    252252    discrepancy = discrepancy+r_regions(zone_n)-float(n_regions(zone_n));
    … …  
    351351if (n .gt. 0) then
    352352  w = x - 1
    353   do k = 2, n
     353  DO k = 2, n
    354354    w = w * (x - k)
    355355  end do
    356356else
    357357  w = 1
    358   do k = 0, -n - 1
     358  DO k = 0, -n - 1
    359359    y = y * (x + k)
    360360  end do

  • LMDZ6/branches/Amaury_dev/libf/phylmd/rrtm/lw.F90

    r1990 r5158  
    142142
    143143IF (LHOOK) CALL DR_HOOK('LW',0,ZHOOK_HANDLE)
    144 print *,'       LW: Avant LWU'
     144print *,'    LW: Avant LWU'
    145145CALL LWU &
    146146 & (  KIDIA, KFDIA, KLON, KLEV,&
    … …  
    156156!                ---------------------------------
    157157
    158 print *,'       LW: Avant LWBV'
     158print *,'    LW: Avant LWBV'
    159159CALL LWBV &
    160160 & ( KIDIA, KFDIA, KLON , KLEV  , KMODE,&
    … …  
    169169!                --------------------------------
    170170
    171 print *,'       LW: Avant LWC'
     171print *,'    LW: Avant LWC'
    172172CALL LWC &
    173173 & ( KIDIA , KFDIA, KLON  , KLEV,&

  • LMDZ6/branches/Amaury_dev/libf/phylmd/rrtm/su_aerop.F90

    r1990 r5158  
    7070! of RH (12 values) for the 8 wavelengths
    7171! For sea-salt (_SS), 3 bins are considered      (0.03, 0.50, 5.0, 20.)
    72 ! For desert dust (_DD), 3 bins are considered  (0.03, 0.55, 0.9, 20.)
     72! For desert dust (_DD), 3 bins are considered    (0.03, 0.55, 0.9, 20.)
    7373!
    7474! IF BIN LIMITS ARE CHANGED, MAKE SURE THAT THE RELEVANT SEDIMENTATION SPEEDS ARE
    7575! RECOMPUTED ACCORDINGLY
    7676
    77 ! RH  0.         10.         20.         30.         40.         50.
     77! RH  0.        10.         20.         30.         40.         50.
    7878!    60.         70.         80.         85.         90.         95.   
    7979

  • LMDZ6/branches/Amaury_dev/libf/phylmd/rrtm/su_aerp.F90

    r1990 r5158  
    6565!      (RHTAB, RHHO_SS, RSSGROW)
    6666!   or to 12 types/bins of aerosols with the following mapping: NTYPAER
    67 !   1- 3  sea-salt  0.03 - 0.5 -  5  - 20 microns                  1
    68 !   4- 6  dust      0.03 - 0.5 - 0.9 - 20 microns                  2
    69 !   7- 8  POM       hydrophilic, hydrophobic                       3
    70 !   9-10  BC        hydrophilic, hydrophobic                       4
    71 !  11     sulfate                                                  5
    72 !  12     fly ash                                                  6
    73 !  13     stratospheric aerosols                                   7
    74 !  14     volcanic aerosols                                        8
    75 !  15                                                              9
     67!   1- 3  sea-salt  0.03 - 0.5 -  5  - 20 microns           1
     68!   4- 6  dust      0.03 - 0.5 - 0.9 - 20 microns           2
     69!   7- 8  POM        hydrophilic, hydrophobic               3
     70!   9-10  BC        hydrophilic, hydrophobic               4
     71!  11     sulfate                           5
     72!  12     fly ash                           6
     73!  13     stratospheric aerosols                   7
     74!  14     volcanic aerosols                       8
     75!  15                                   9
    7676!      (RVDPOCE, RVDSIC, RVDPLND, RVDPLIC)
    7777!      (RVSEDOCE,RVSEDSIC,RVSEDLND,RVSEDLIC)
    … …  
    268268 &  0.01_JPRB,  0.01_JPRB,  0.01_JPRB,  0.01_JPRB,  0.01_JPRB,  0.01_JPRB,  0.01_JPRB /)
    269269
    270                                                                                  
     270
    271271!*      3.    PARAMETERS RELATED TO TRANSPORT WITHIN THE FREE ATMOSPHERE
    272272!             ----------------------------------------------------------

  • LMDZ6/branches/Amaury_dev/libf/phylmd/rrtm/su_aerw.F90

    r1990 r5158  
    119119!     1       1- 3  sea-salt  0.03 - 0.5 -  5  - 20 microns
    120120!     2       4- 6  dust      0.03 - 0.5 - 0.9 - 20 microns
    121 !     3       7- 8  POM     hydrophilic, hydrophobic
    122 !     4       9-10  BC      hydrophilic, hydrophobic
     121!     3       7- 8  POM        hydrophilic, hydrophobic
     122!     4       9-10  BC        hydrophilic, hydrophobic
    123123!     5      11     sulfate
    124124!     6      12     fly ash

  • LMDZ6/branches/Amaury_dev/libf/phylmd/rrtm/su_uvrad.F90

    r1990 r5158  
    928928RFA0 = (/-0.236447E-03_JPRB,-0.266955E-03_JPRB,-0.293599E-03_JPRB,-0.258858E-03_JPRB /)
    929929RFA1 = (/ 0.253817E+01_JPRB, 0.254179E+01_JPRB, 0.254540E+01_JPRB, 0.253815E+01_JPRB /)
    930 !          single scattering albedo
     930!       single scattering albedo
    931931RFB0 = (/-0.269916E-06_JPRB,-0.100570E-06_JPRB, 0.182299E-06_JPRB,-0.198529E-06_JPRB /)
    932932RFB1 = (/ 0.212909E-06_JPRB, 0.160441E-06_JPRB, 0.112454E-06_JPRB, 0.939480E-07_JPRB /)

  • LMDZ6/branches/Amaury_dev/libf/phylmd/rrtm/sucst.F90

    r2043 r5158  
    290290  WRITE(KULOUT,'(10(1X,E10.4))') (ESS(RTT+10._JPRB*J),J=-4,4)
    291291!  call flush(0)       !!!!! A REVOIR (MPL) les 7 lignes qui suivent
    292    do j=1,9
     292   DO j=1,9
    293293     print*,'TEST J',j
    294294     print*,'RTT...',RTT+10._JPRB*(J-5)

  • LMDZ6/branches/Amaury_dev/libf/phylmd/rrtm/suecrad.F90

    r5154 r5158  
    293293  !                     3: f(T,IWC) Sun'01: 22.5 to 175 microns
    294294  !  conversion factor between effective radius and particle size for ice
    295   NRADIP = 3            ! before 3?R1 default=2         3
    296   NRADLP = 2            ! before 3?R1 default=2 2
     295  NRADIP = 3            ! before 3?R1 default=2     3
     296  NRADLP = 2            ! before 3?R1 default=2    2
    297297  print *, 'SUECRAD: NRADLP, NRADIP=', NRADLP, NRADIP
    298298  RRe2De = 0.64952_JPRB ! before 3?R1 default=0.5_JPRB

  • LMDZ6/branches/Amaury_dev/libf/phylmd/rrtm/yoeaerop.F90

    r2010 r5158  
    2828
    2929! ALF is alpha , the mass extinction coefficient   in m2/g
    30 ! ASY is g     , the assymetry factor                ND
    31 ! OMG is pizero, the single scattering albedo        ND
     30! ASY is g     , the assymetry factor             ND
     31! OMG is pizero, the single scattering albedo         ND
    3232!     ------------------------------------------------------------------
    3333

  • LMDZ6/branches/Amaury_dev/libf/phylmd/rrtm/yomarar.F90

    r2010 r5158  
    5858
    5959REAL(KIND=JPRB), DIMENSION(:), ALLOCATABLE  :: XSW_BANDS  !SW spectral bands
    60                                               ! for ext. surface scheme
     60                          ! for ext. surface scheme
    6161LOGICAL :: LOSUBG_COND ! see OSUBG_COND in mesoNH
    6262LOGICAL :: LOSUBG_AUCV ! see OSUBG_AUCV in mesoNH

  • LMDZ6/branches/Amaury_dev/libf/phylmd/rrtm/yomcoaphy.F90

    r2010 r5158  
    1616INTEGER(KIND=JPIM) :: NPHYINT      ! NPHYINT=0 -> Physics and dynamics at the same resolution
    1717                                   ! NPHYINT=1 -> Physics grid coarser than dynamics grid
    18                                    ! NPHYINT=2 -> Physics grid finer than dynamics grid
     18                   ! NPHYINT=2 -> Physics grid finer than dynamics grid
    1919TYPE(gridpoint_buffer) :: PHYS_GPPBUF
    2020CHARACTER (LEN = 32) ::   CPTABLEFIL

  • LMDZ6/branches/Amaury_dev/libf/phylmd/rrtm/yomgrb.F90

    r2010 r5158  
    227227! NGRBAERMR14 - 014 aerosol mixing ratio 14
    228228! NGRBAERMR15 - 015 aerosol mixing ratio 15
    229 ! NGRBAERGN01 - 016 aerosol gain acc. 1         2D
    230 ! NGRBAERGN02 - 017 aerosol gain acc. 2         2D
    231 ! NGRBAERGN03 - 018 aerosol gain acc. 3         2D
    232 ! NGRBAERGN04 - 019 aerosol gain acc. 4         2D
    233 ! NGRBAERGN05 - 020 aerosol gain acc. 5         2D
    234 ! NGRBAERGN06 - 021 aerosol gain acc. 6         2D
    235 ! NGRBAERGN07 - 022 aerosol gain acc. 7         2D
    236 ! NGRBAERGN08 - 023 aerosol gain acc. 8         2D
    237 ! NGRBAERGN09 - 024 aerosol gain acc. 9         2D
    238 ! NGRBAERGN10 - 025 aerosol gain acc. 10        2D
    239 ! NGRBAERGN11 - 026 aerosol gain acc. 11        2D
    240 ! NGRBAERGN12 - 027 aerosol gain acc. 12        2D
    241 ! NGRBAERGN13 - 028 aerosol gain acc. 13        2D
    242 ! NGRBAERGN14 - 029 aerosol gain acc. 14        2D
    243 ! NGRBAERGN15 - 030 aerosol gain acc. 15        2D
    244 ! NGRBAERLS01 - 031 aerosol loss acc. 1         2D
    245 ! NGRBAERLS02 - 032 aerosol loss acc. 2         2D
    246 ! NGRBAERLS03 - 033 aerosol loss acc. 3         2D
    247 ! NGRBAERLS04 - 034 aerosol loss acc. 4         2D
    248 ! NGRBAERLS05 - 035 aerosol loss acc. 5         2D
    249 ! NGRBAERLS06 - 036 aerosol loss acc. 6         2D
    250 ! NGRBAERLS07 - 037 aerosol loss acc. 7         2D
    251 ! NGRBAERLS08 - 038 aerosol loss acc. 8         2D
    252 ! NGRBAERLS09 - 039 aerosol loss acc. 9         2D
    253 ! NGRBAERLS10 - 040 aerosol loss acc. 10        2D
    254 ! NGRBAERLS11 - 041 aerosol loss acc. 11        2D
    255 ! NGRBAERLS12 - 042 aerosol loss acc. 12        2D
    256 ! NGRBAERLS13 - 043 aerosol loss acc. 13        2D
    257 ! NGRBAERLS14 - 044 aerosol loss acc. 14        2D
    258 ! NGRBAERLS15 - 045 aerosol loss acc. 15        2D
     229! NGRBAERGN01 - 016 aerosol gain acc. 1        2D
     230! NGRBAERGN02 - 017 aerosol gain acc. 2        2D
     231! NGRBAERGN03 - 018 aerosol gain acc. 3        2D
     232! NGRBAERGN04 - 019 aerosol gain acc. 4        2D
     233! NGRBAERGN05 - 020 aerosol gain acc. 5        2D
     234! NGRBAERGN06 - 021 aerosol gain acc. 6        2D
     235! NGRBAERGN07 - 022 aerosol gain acc. 7        2D
     236! NGRBAERGN08 - 023 aerosol gain acc. 8        2D
     237! NGRBAERGN09 - 024 aerosol gain acc. 9        2D
     238! NGRBAERGN10 - 025 aerosol gain acc. 10    2D
     239! NGRBAERGN11 - 026 aerosol gain acc. 11    2D
     240! NGRBAERGN12 - 027 aerosol gain acc. 12    2D
     241! NGRBAERGN13 - 028 aerosol gain acc. 13    2D
     242! NGRBAERGN14 - 029 aerosol gain acc. 14    2D
     243! NGRBAERGN15 - 030 aerosol gain acc. 15    2D
     244! NGRBAERLS01 - 031 aerosol loss acc. 1        2D
     245! NGRBAERLS02 - 032 aerosol loss acc. 2        2D
     246! NGRBAERLS03 - 033 aerosol loss acc. 3        2D
     247! NGRBAERLS04 - 034 aerosol loss acc. 4        2D
     248! NGRBAERLS05 - 035 aerosol loss acc. 5        2D
     249! NGRBAERLS06 - 036 aerosol loss acc. 6        2D
     250! NGRBAERLS07 - 037 aerosol loss acc. 7        2D
     251! NGRBAERLS08 - 038 aerosol loss acc. 8        2D
     252! NGRBAERLS09 - 039 aerosol loss acc. 9        2D
     253! NGRBAERLS10 - 040 aerosol loss acc. 10    2D
     254! NGRBAERLS11 - 041 aerosol loss acc. 11    2D
     255! NGRBAERLS12 - 042 aerosol loss acc. 12    2D
     256! NGRBAERLS13 - 043 aerosol loss acc. 13    2D
     257! NGRBAERLS14 - 044 aerosol loss acc. 14    2D
     258! NGRBAERLS15 - 045 aerosol loss acc. 15    2D
    259259! NGRBAERPR   - 046 aerosol precursor mixing ratio
    260260! NGRBAERSM   - 047 small aerosols mixing ratio
    261261! NGRBAERLG   - 048 large aerosols mixing ratio
    262262! NGRBAODPR   - 049 aerosol precursor opt.depth 2D
    263 ! NGRBAODSM   - 050 small aerosols opt. depth   2D
    264 ! NGRBAODLG   - 051 large aerosols opt. depth   2D
     263! NGRBAODSM   - 050 small aerosols opt. depth    2D
     264! NGRBAODLG   - 051 large aerosols opt. depth    2D
    265265! NGRBAERDEP  - 052 dust emission potential clim2D
    266266! NGRBAERLTS  - 053 lifting threshold speed clim2D
Note: See TracChangeset for help on using the changeset viewer.