Index: LMDZ6/branches/Amaury_dev/libf/phylmd/rrtm/dates.F90
===================================================================
--- LMDZ6/branches/Amaury_dev/libf/phylmd/rrtm/dates.F90	(revision 5154)
+++ LMDZ6/branches/Amaury_dev/libf/phylmd/rrtm/dates.F90	(revision 5158)
@@ -26,21 +26,21 @@
 ! - gregoi: Conversion Ecart par rapport a une date fixe > Date.
 ! - daplus: Quelle sera la date dans n jours (ou heures, etc...)?
-! - amqhms_vers_dj: Conversion date grégorienne (en 5 entiers et un réel) > date julienne.
-! - dj_vers_amqhms: Conversion date julienne > date grégorienne (en 5 entiers et un réel).
-! - amqhmsree_vers_dj: Conversion date grégorienne (en un seul réel) > date julienne.
-! - dj_vers_amqhmsree: Conversion date julienne > date grégorienne (en un seul réel).
-!
-! --------------------------------------------------------------
-!
-! Définition des dates employées ci-dessous:
+! - amqhms_vers_dj: Conversion date gr�gorienne (en 5 entiers et un r�el) > date julienne.
+! - dj_vers_amqhms: Conversion date julienne > date gr�gorienne (en 5 entiers et un r�el).
+! - amqhmsree_vers_dj: Conversion date gr�gorienne (en un seul r�el) > date julienne.
+! - dj_vers_amqhmsree: Conversion date julienne > date gr�gorienne (en un seul r�el).
+!
+! --------------------------------------------------------------
+!
+! D�finition des dates employ�es ci-dessous:
 !
 ! Date julienne DJ:
-!       Elle est composée d'un réel.
-!       R1: Ce réel croît de 1 tous les jours,
-!               et vaut 2451545.0 le 1er janvier 2000 à 12 UTC.
-!
-! Date grégorienne "en clair" AMQHMS:
-!       Elle est composée de 5 entiers et d'un réel.
-!       E1: Année (4 chiffres!)
+!       Elle est compos�e d'un r�el.
+!       R1: Ce r�el cro�t de 1 tous les jours,
+!               et vaut 2451545.0 le 1er janvier 2000 � 12 UTC.
+!
+! Date gr�gorienne "en clair" AMQHMS:
+!       Elle est compos�e de 5 entiers et d'un r�el.
+!       E1: Ann�e (4 chiffres!)
 !       E2: Mois
 !       E3: Jour
@@ -82,5 +82,5 @@
 !
 !-------------------------------------------------
-! Date de validité.
+! Date de validit�.
 !-------------------------------------------------
 !
@@ -92,27 +92,27 @@
 zsssss=zsssss-real(imi)
 call amqhms_vers_dj(kan,kmo,kqu,ihe,imi,zs,zdj)
-zdj=zdj+pstati/86400. ! date julienne de validité.
-call dj_vers_amqhms(zdj,ianv,imov,iquv,ihev,imiv,zsv) ! date grégorienne de validité.
+zdj=zdj+pstati/86400. ! date julienne de validit�.
+call dj_vers_amqhms(zdj,ianv,imov,iquv,ihev,imiv,zsv) ! date gr�gorienne de validit�.
 if(pstati < 3600.) then
 !
 !-------------------------------------------------
-! Echéance en minutes.
-!-------------------------------------------------
-!
-	zech=pstati/60. ; clzue='mn'
+! Ech�ance en minutes.
+!-------------------------------------------------
+!
+    zech=pstati/60. ; clzue='mn'
 elseif(pstati < 259200.) then
 !
 !-------------------------------------------------
-! Echéance en heures.
-!-------------------------------------------------
-!
-	zech=pstati/3600. ; clzue='h'
+! Ech�ance en heures.
+!-------------------------------------------------
+!
+    zech=pstati/3600. ; clzue='h'
 else
 !
 !-------------------------------------------------
-! Echéance en jours.
-!-------------------------------------------------
-!
-	zech=pstati/86400. ; clzue='j'
+! Ech�ance en jours.
+!-------------------------------------------------
+!
+    zech=pstati/86400. ; clzue='j'
 endif
 !
@@ -125,5 +125,5 @@
 !
 if(clze(len_trim(clze)-2:len_trim(clze)) == '.00') then
-	clze=clze(1:len_trim(clze)-3)
+    clze=clze(1:len_trim(clze)-3)
 endif
 clze=adjustl(clze)
@@ -139,21 +139,21 @@
 !
 !-------------------------------------------------
-! Les minutes de base et validité sont nulles.
+! Les minutes de base et validit� sont nulles.
 ! On ne les affiche pas.
 !-------------------------------------------------
 !
-	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)')&
-	&'BASE ',kqu,'.',kmo,'.',kan,' ',ihe,'h UTC + ',clech(1:len_trim(clech))&
-	&,', VALID ',iquv,'.',imov,'.',ianv,' ',ihev,'h UTC'
+    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)')&
+    &'BASE ',kqu,'.',kmo,'.',kan,' ',ihe,'h UTC + ',clech(1:len_trim(clech))&
+    &,', VALID ',iquv,'.',imov,'.',ianv,' ',ihev,'h UTC'
 else
 !
 !-------------------------------------------------
-! Les minutes de base ou validité sont non nulles.
+! Les minutes de base ou validit� sont non nulles.
 ! On les affiche.
 !-------------------------------------------------
 !
-	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)')&
-	&'BASE ',kqu,'.',kmo,'.',kan,' ',ihe,':',imi,' UTC + ',clech(1:len_trim(clech))&
-	&,' VALID ',iquv,'.',imov,'.',ianv,' ',ihev,':',imiv,' UTC'
+    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)')&
+    &'BASE ',kqu,'.',kmo,'.',kan,' ',ihe,':',imi,' UTC + ',clech(1:len_trim(clech))&
+    &,' VALID ',iquv,'.',imov,'.',ianv,' ',ihev,':',imiv,' UTC'
 endif
 end
@@ -209,5 +209,5 @@
 !
 !-------------------------------------------------
-! Date courante à la f90.
+! Date courante � la f90.
 !-------------------------------------------------
 !
@@ -259,12 +259,12 @@
 ! --------------------------------------------------------------------------
 ! En entree:
-! kaaaa année (4 chiffres!)
+! kaaaa ann�e (4 chiffres!)
 ! kmm   mois
-! kqq   quantième du mois
+! kqq   quanti�me du mois
 ! khh   heure
 ! kmn   minute
 ! ps    seconde
 ! En sortie:
-! pdj date julienne associée à la date grégorienne UTC d'entrée
+! pdj date julienne associ�e � la date gr�gorienne UTC d'entr�e
 ! --------------------------------------------------------------------------
 
@@ -286,6 +286,6 @@
 !
 !-------------------------------------------------
-! Nombre de jours écoulés entre la date
-! d'entrée à 0h UTC et le 1er janvier 2000 à 0h UTC.
+! Nombre de jours �coul�s entre la date
+! d'entr�e � 0h UTC et le 1er janvier 2000 � 0h UTC.
 !-------------------------------------------------
 !
@@ -476,9 +476,9 @@
 ! --------------------------------------------------------------------------
 ! En entree:
-! pdj date julienne associée à la date grégorienne UTC d'entrée
-! En sortie:
-! kaaaa année (4 chiffres!)
+! pdj date julienne associ�e � la date gr�gorienne UTC d'entr�e
+! En sortie:
+! kaaaa ann�e (4 chiffres!)
 ! kmm   mois
-! kqq   quantième du mois
+! kqq   quanti�me du mois
 ! khh   heure
 ! kmn   minute
@@ -487,5 +487,5 @@
 !
 !-------------------------------------------------
-! Nombre de jours entre le 1er janvier 2000 à 0 UTC
+! Nombre de jours entre le 1er janvier 2000 � 0 UTC
 ! et la date julienne courante.
 !-------------------------------------------------
@@ -517,5 +517,5 @@
 !
 !-------------------------------------------------
-! Date grégorienne associée.
+! Date gr�gorienne associ�e.
 !-------------------------------------------------
 !
@@ -563,5 +563,5 @@
 !
 !-------------------------------------------------
-! Conversion grégorien julien; cible 5 entiers et un réel.
+! Conversion gr�gorien julien; cible 5 entiers et un r�el.
 !-------------------------------------------------
 !
@@ -569,5 +569,5 @@
 !
 !-------------------------------------------------
-! On passe de ces 5 entiers et un réel à un seul réel.
+! On passe de ces 5 entiers et un r�el � un seul r�el.
 !-------------------------------------------------
 !
@@ -591,5 +591,5 @@
 ! pgrer date en clair au format AAAAMMQQ.HHMMSS
 ! En sortie:
-! pdj date julienne associée à la date grégorienne
+! pdj date julienne associ�e � la date gr�gorienne
 ! --------------------------------------------------------------------------
 !
@@ -602,6 +602,6 @@
 !
 !-------------------------------------------------
-! On passe de cette date grégorienne donnée
-! comme un seul réel à 5 entiers et un réel.
+! On passe de cette date gr�gorienne donn�e
+! comme un seul r�el � 5 entiers et un r�el.
 !-------------------------------------------------
 !
@@ -619,5 +619,5 @@
 !
 !-------------------------------------------------
-! Conversion grégorien julien; cible 5 entiers et un réel.
+! Conversion gr�gorien julien; cible 5 entiers et un r�el.
 !-------------------------------------------------
 !
@@ -1058,5 +1058,5 @@
 if(ibissext == 1) ijours(2)=29
 ! *       Boucle sur les jours
-do ieci=1,iec
+DO ieci=1,iec
   iqq=iqq+1
   if(iqq > ijours(imm)) then
Index: LMDZ6/branches/Amaury_dev/libf/phylmd/rrtm/eq_regions_mod.F90
===================================================================
--- LMDZ6/branches/Amaury_dev/libf/phylmd/rrtm/eq_regions_mod.F90	(revision 5154)
+++ LMDZ6/branches/Amaury_dev/libf/phylmd/rrtm/eq_regions_mod.F90	(revision 5158)
@@ -150,5 +150,5 @@
 if( l_regions_debug )then
   write(*,'("eq_regions: N=",I6," n_regions_ns=",I4)') N,n_regions_ns
-  do j=1,n_regions_ns
+  DO j=1,n_regions_ns
     write(*,'("eq_regions: n_regions(",I4,")=",I4)') j,n_regions(j)
   enddo
@@ -207,5 +207,5 @@
   a_fitting = (pi-2.0_jprb*c_polar)/float(n_collars)
   ideal_region_area = area_of_ideal_region(N)
-  do collar_n=1,n_collars
+  DO collar_n=1,n_collars
     ideal_collar_area = area_of_collar(c_polar+(collar_n-1)*a_fitting, &
      & c_polar+collar_n*a_fitting)
@@ -248,5 +248,5 @@
 n_regions(1:n_collars+2) = r_regions(:)
 discrepancy = 0.0_jprb
-do zone_n = 1,n_collars+2
+DO zone_n = 1,n_collars+2
     n_regions(zone_n) = nint(r_regions(zone_n)+discrepancy);
     discrepancy = discrepancy+r_regions(zone_n)-float(n_regions(zone_n));
@@ -351,10 +351,10 @@
 if (n .gt. 0) then
   w = x - 1
-  do k = 2, n
+  DO k = 2, n
     w = w * (x - k)
   end do
 else
   w = 1
-  do k = 0, -n - 1
+  DO k = 0, -n - 1
     y = y * (x + k)
   end do
Index: LMDZ6/branches/Amaury_dev/libf/phylmd/rrtm/lw.F90
===================================================================
--- LMDZ6/branches/Amaury_dev/libf/phylmd/rrtm/lw.F90	(revision 5154)
+++ LMDZ6/branches/Amaury_dev/libf/phylmd/rrtm/lw.F90	(revision 5158)
@@ -142,5 +142,5 @@
 
 IF (LHOOK) CALL DR_HOOK('LW',0,ZHOOK_HANDLE)
-print *,'	LW: Avant LWU'
+print *,'    LW: Avant LWU'
 CALL LWU &
  & (  KIDIA, KFDIA, KLON, KLEV,&
@@ -156,5 +156,5 @@
 !                ---------------------------------
 
-print *,'	LW: Avant LWBV'
+print *,'    LW: Avant LWBV'
 CALL LWBV &
  & ( KIDIA, KFDIA, KLON , KLEV  , KMODE,&
@@ -169,5 +169,5 @@
 !                --------------------------------
 
-print *,'	LW: Avant LWC'
+print *,'    LW: Avant LWC'
 CALL LWC &
  & ( KIDIA , KFDIA, KLON  , KLEV,&
Index: LMDZ6/branches/Amaury_dev/libf/phylmd/rrtm/su_aerop.F90
===================================================================
--- LMDZ6/branches/Amaury_dev/libf/phylmd/rrtm/su_aerop.F90	(revision 5154)
+++ LMDZ6/branches/Amaury_dev/libf/phylmd/rrtm/su_aerop.F90	(revision 5158)
@@ -70,10 +70,10 @@
 ! of RH (12 values) for the 8 wavelengths
 ! For sea-salt (_SS), 3 bins are considered      (0.03, 0.50, 5.0, 20.)
-! For desert dust (_DD), 3 bins are considered	 (0.03, 0.55, 0.9, 20.)
+! For desert dust (_DD), 3 bins are considered     (0.03, 0.55, 0.9, 20.)
 !
 ! IF BIN LIMITS ARE CHANGED, MAKE SURE THAT THE RELEVANT SEDIMENTATION SPEEDS ARE 
 ! RECOMPUTED ACCORDINGLY
 
-! RH  0.   	 10.	     20.         30.         40.         50.
+! RH  0.        10.         20.         30.         40.         50.
 !    60.         70.         80.         85.         90.         95.    
 
Index: LMDZ6/branches/Amaury_dev/libf/phylmd/rrtm/su_aerp.F90
===================================================================
--- LMDZ6/branches/Amaury_dev/libf/phylmd/rrtm/su_aerp.F90	(revision 5154)
+++ LMDZ6/branches/Amaury_dev/libf/phylmd/rrtm/su_aerp.F90	(revision 5158)
@@ -65,13 +65,13 @@
 !      (RHTAB, RHHO_SS, RSSGROW)
 !   or to 12 types/bins of aerosols with the following mapping: NTYPAER
-!   1- 3  sea-salt  0.03 - 0.5 -  5  - 20 microns		   1
-!   4- 6  dust      0.03 - 0.5 - 0.9 - 20 microns		   2
-!   7- 8  POM	    hydrophilic, hydrophobic			   3
-!   9-10  BC	    hydrophilic, hydrophobic			   4
-!  11     sulfate						   5
-!  12     fly ash						   6
-!  13     stratospheric aerosols				   7
-!  14     volcanic aerosols					   8
-!  15    							   9
+!   1- 3  sea-salt  0.03 - 0.5 -  5  - 20 microns           1
+!   4- 6  dust      0.03 - 0.5 - 0.9 - 20 microns           2
+!   7- 8  POM        hydrophilic, hydrophobic               3
+!   9-10  BC        hydrophilic, hydrophobic               4
+!  11     sulfate                           5
+!  12     fly ash                           6
+!  13     stratospheric aerosols                   7
+!  14     volcanic aerosols                       8
+!  15                                   9
 !      (RVDPOCE, RVDSIC, RVDPLND, RVDPLIC)
 !      (RVSEDOCE,RVSEDSIC,RVSEDLND,RVSEDLIC)
@@ -268,5 +268,5 @@
  &  0.01_JPRB,  0.01_JPRB,  0.01_JPRB,  0.01_JPRB,  0.01_JPRB,  0.01_JPRB,  0.01_JPRB /)
 
-										 
+
 !*      3.    PARAMETERS RELATED TO TRANSPORT WITHIN THE FREE ATMOSPHERE
 !             ----------------------------------------------------------
Index: LMDZ6/branches/Amaury_dev/libf/phylmd/rrtm/su_aerw.F90
===================================================================
--- LMDZ6/branches/Amaury_dev/libf/phylmd/rrtm/su_aerw.F90	(revision 5154)
+++ LMDZ6/branches/Amaury_dev/libf/phylmd/rrtm/su_aerw.F90	(revision 5158)
@@ -119,6 +119,6 @@
 !     1       1- 3  sea-salt  0.03 - 0.5 -  5  - 20 microns
 !     2       4- 6  dust      0.03 - 0.5 - 0.9 - 20 microns
-!     3       7- 8  POM	    hydrophilic, hydrophobic
-!     4       9-10  BC	    hydrophilic, hydrophobic
+!     3       7- 8  POM        hydrophilic, hydrophobic
+!     4       9-10  BC        hydrophilic, hydrophobic
 !     5      11     sulfate
 !     6      12     fly ash
Index: LMDZ6/branches/Amaury_dev/libf/phylmd/rrtm/su_uvrad.F90
===================================================================
--- LMDZ6/branches/Amaury_dev/libf/phylmd/rrtm/su_uvrad.F90	(revision 5154)
+++ LMDZ6/branches/Amaury_dev/libf/phylmd/rrtm/su_uvrad.F90	(revision 5158)
@@ -928,5 +928,5 @@
 RFA0 = (/-0.236447E-03_JPRB,-0.266955E-03_JPRB,-0.293599E-03_JPRB,-0.258858E-03_JPRB /)
 RFA1 = (/ 0.253817E+01_JPRB, 0.254179E+01_JPRB, 0.254540E+01_JPRB, 0.253815E+01_JPRB /)
-!	   single scattering albedo
+!       single scattering albedo
 RFB0 = (/-0.269916E-06_JPRB,-0.100570E-06_JPRB, 0.182299E-06_JPRB,-0.198529E-06_JPRB /)
 RFB1 = (/ 0.212909E-06_JPRB, 0.160441E-06_JPRB, 0.112454E-06_JPRB, 0.939480E-07_JPRB /)
Index: LMDZ6/branches/Amaury_dev/libf/phylmd/rrtm/sucst.F90
===================================================================
--- LMDZ6/branches/Amaury_dev/libf/phylmd/rrtm/sucst.F90	(revision 5154)
+++ LMDZ6/branches/Amaury_dev/libf/phylmd/rrtm/sucst.F90	(revision 5158)
@@ -290,5 +290,5 @@
   WRITE(KULOUT,'(10(1X,E10.4))') (ESS(RTT+10._JPRB*J),J=-4,4)
 !  call flush(0)       !!!!! A REVOIR (MPL) les 7 lignes qui suivent
-   do j=1,9
+   DO j=1,9
      print*,'TEST J',j
      print*,'RTT...',RTT+10._JPRB*(J-5)
Index: LMDZ6/branches/Amaury_dev/libf/phylmd/rrtm/suecrad.F90
===================================================================
--- LMDZ6/branches/Amaury_dev/libf/phylmd/rrtm/suecrad.F90	(revision 5154)
+++ LMDZ6/branches/Amaury_dev/libf/phylmd/rrtm/suecrad.F90	(revision 5158)
@@ -293,6 +293,6 @@
   !                     3: f(T,IWC) Sun'01: 22.5 to 175 microns
   !  conversion factor between effective radius and particle size for ice
-  NRADIP = 3            ! before 3?R1 default=2 	3
-  NRADLP = 2            ! before 3?R1 default=2	2
+  NRADIP = 3            ! before 3?R1 default=2     3
+  NRADLP = 2            ! before 3?R1 default=2    2
   print *, 'SUECRAD: NRADLP, NRADIP=', NRADLP, NRADIP
   RRe2De = 0.64952_JPRB ! before 3?R1 default=0.5_JPRB
Index: LMDZ6/branches/Amaury_dev/libf/phylmd/rrtm/yoeaerop.F90
===================================================================
--- LMDZ6/branches/Amaury_dev/libf/phylmd/rrtm/yoeaerop.F90	(revision 5154)
+++ LMDZ6/branches/Amaury_dev/libf/phylmd/rrtm/yoeaerop.F90	(revision 5158)
@@ -28,6 +28,6 @@
 
 ! ALF is alpha , the mass extinction coefficient   in m2/g
-! ASY is g     , the assymetry factor		     ND
-! OMG is pizero, the single scattering albedo	     ND
+! ASY is g     , the assymetry factor             ND
+! OMG is pizero, the single scattering albedo         ND
 !     ------------------------------------------------------------------
 
Index: LMDZ6/branches/Amaury_dev/libf/phylmd/rrtm/yomarar.F90
===================================================================
--- LMDZ6/branches/Amaury_dev/libf/phylmd/rrtm/yomarar.F90	(revision 5154)
+++ LMDZ6/branches/Amaury_dev/libf/phylmd/rrtm/yomarar.F90	(revision 5158)
@@ -58,5 +58,5 @@
 
 REAL(KIND=JPRB), DIMENSION(:), ALLOCATABLE  :: XSW_BANDS  !SW spectral bands
-					      ! for ext. surface scheme
+                          ! for ext. surface scheme
 LOGICAL :: LOSUBG_COND ! see OSUBG_COND in mesoNH
 LOGICAL :: LOSUBG_AUCV ! see OSUBG_AUCV in mesoNH
Index: LMDZ6/branches/Amaury_dev/libf/phylmd/rrtm/yomcoaphy.F90
===================================================================
--- LMDZ6/branches/Amaury_dev/libf/phylmd/rrtm/yomcoaphy.F90	(revision 5154)
+++ LMDZ6/branches/Amaury_dev/libf/phylmd/rrtm/yomcoaphy.F90	(revision 5158)
@@ -16,5 +16,5 @@
 INTEGER(KIND=JPIM) :: NPHYINT      ! NPHYINT=0 -> Physics and dynamics at the same resolution
                                    ! NPHYINT=1 -> Physics grid coarser than dynamics grid
-				   ! NPHYINT=2 -> Physics grid finer than dynamics grid
+                   ! NPHYINT=2 -> Physics grid finer than dynamics grid
 TYPE(gridpoint_buffer) :: PHYS_GPPBUF
 CHARACTER (LEN = 32) ::   CPTABLEFIL
Index: LMDZ6/branches/Amaury_dev/libf/phylmd/rrtm/yomgrb.F90
===================================================================
--- LMDZ6/branches/Amaury_dev/libf/phylmd/rrtm/yomgrb.F90	(revision 5154)
+++ LMDZ6/branches/Amaury_dev/libf/phylmd/rrtm/yomgrb.F90	(revision 5158)
@@ -227,40 +227,40 @@
 ! NGRBAERMR14 - 014 aerosol mixing ratio 14
 ! NGRBAERMR15 - 015 aerosol mixing ratio 15
-! NGRBAERGN01 - 016 aerosol gain acc. 1		2D
-! NGRBAERGN02 - 017 aerosol gain acc. 2		2D
-! NGRBAERGN03 - 018 aerosol gain acc. 3		2D
-! NGRBAERGN04 - 019 aerosol gain acc. 4		2D
-! NGRBAERGN05 - 020 aerosol gain acc. 5		2D
-! NGRBAERGN06 - 021 aerosol gain acc. 6		2D
-! NGRBAERGN07 - 022 aerosol gain acc. 7		2D
-! NGRBAERGN08 - 023 aerosol gain acc. 8		2D
-! NGRBAERGN09 - 024 aerosol gain acc. 9		2D
-! NGRBAERGN10 - 025 aerosol gain acc. 10	2D
-! NGRBAERGN11 - 026 aerosol gain acc. 11	2D
-! NGRBAERGN12 - 027 aerosol gain acc. 12	2D
-! NGRBAERGN13 - 028 aerosol gain acc. 13	2D
-! NGRBAERGN14 - 029 aerosol gain acc. 14	2D
-! NGRBAERGN15 - 030 aerosol gain acc. 15	2D
-! NGRBAERLS01 - 031 aerosol loss acc. 1		2D
-! NGRBAERLS02 - 032 aerosol loss acc. 2		2D
-! NGRBAERLS03 - 033 aerosol loss acc. 3		2D
-! NGRBAERLS04 - 034 aerosol loss acc. 4		2D
-! NGRBAERLS05 - 035 aerosol loss acc. 5		2D
-! NGRBAERLS06 - 036 aerosol loss acc. 6		2D
-! NGRBAERLS07 - 037 aerosol loss acc. 7		2D
-! NGRBAERLS08 - 038 aerosol loss acc. 8		2D
-! NGRBAERLS09 - 039 aerosol loss acc. 9		2D
-! NGRBAERLS10 - 040 aerosol loss acc. 10	2D
-! NGRBAERLS11 - 041 aerosol loss acc. 11	2D
-! NGRBAERLS12 - 042 aerosol loss acc. 12	2D
-! NGRBAERLS13 - 043 aerosol loss acc. 13	2D
-! NGRBAERLS14 - 044 aerosol loss acc. 14	2D
-! NGRBAERLS15 - 045 aerosol loss acc. 15	2D
+! NGRBAERGN01 - 016 aerosol gain acc. 1        2D
+! NGRBAERGN02 - 017 aerosol gain acc. 2        2D
+! NGRBAERGN03 - 018 aerosol gain acc. 3        2D
+! NGRBAERGN04 - 019 aerosol gain acc. 4        2D
+! NGRBAERGN05 - 020 aerosol gain acc. 5        2D
+! NGRBAERGN06 - 021 aerosol gain acc. 6        2D
+! NGRBAERGN07 - 022 aerosol gain acc. 7        2D
+! NGRBAERGN08 - 023 aerosol gain acc. 8        2D
+! NGRBAERGN09 - 024 aerosol gain acc. 9        2D
+! NGRBAERGN10 - 025 aerosol gain acc. 10    2D
+! NGRBAERGN11 - 026 aerosol gain acc. 11    2D
+! NGRBAERGN12 - 027 aerosol gain acc. 12    2D
+! NGRBAERGN13 - 028 aerosol gain acc. 13    2D
+! NGRBAERGN14 - 029 aerosol gain acc. 14    2D
+! NGRBAERGN15 - 030 aerosol gain acc. 15    2D
+! NGRBAERLS01 - 031 aerosol loss acc. 1        2D
+! NGRBAERLS02 - 032 aerosol loss acc. 2        2D
+! NGRBAERLS03 - 033 aerosol loss acc. 3        2D
+! NGRBAERLS04 - 034 aerosol loss acc. 4        2D
+! NGRBAERLS05 - 035 aerosol loss acc. 5        2D
+! NGRBAERLS06 - 036 aerosol loss acc. 6        2D
+! NGRBAERLS07 - 037 aerosol loss acc. 7        2D
+! NGRBAERLS08 - 038 aerosol loss acc. 8        2D
+! NGRBAERLS09 - 039 aerosol loss acc. 9        2D
+! NGRBAERLS10 - 040 aerosol loss acc. 10    2D
+! NGRBAERLS11 - 041 aerosol loss acc. 11    2D
+! NGRBAERLS12 - 042 aerosol loss acc. 12    2D
+! NGRBAERLS13 - 043 aerosol loss acc. 13    2D
+! NGRBAERLS14 - 044 aerosol loss acc. 14    2D
+! NGRBAERLS15 - 045 aerosol loss acc. 15    2D
 ! NGRBAERPR   - 046 aerosol precursor mixing ratio 
 ! NGRBAERSM   - 047 small aerosols mixing ratio 
 ! NGRBAERLG   - 048 large aerosols mixing ratio 
 ! NGRBAODPR   - 049 aerosol precursor opt.depth 2D
-! NGRBAODSM   - 050 small aerosols opt. depth	2D
-! NGRBAODLG   - 051 large aerosols opt. depth	2D
+! NGRBAODSM   - 050 small aerosols opt. depth    2D
+! NGRBAODLG   - 051 large aerosols opt. depth    2D
 ! NGRBAERDEP  - 052 dust emission potential clim2D 
 ! NGRBAERLTS  - 053 lifting threshold speed clim2D
