Changeset 5159 for LMDZ6/branches/Amaury_dev/libf/phylmd/rrtm/readaerosolstrato2_rrtm.F90

Timestamp:

Aug 2, 2024, 9:58:25 PM (3 months ago)

Author:

abarral

Message:

Put dimensions.h and paramet.h into modules

File:

• LMDZ6/branches/Amaury_dev/libf/phylmd/rrtm/readaerosolstrato2_rrtm.F90 (modified) (5 diffs)

LMDZ6/branches/Amaury_dev/libf/phylmd/rrtm/readaerosolstrato2_rrtm.F90

@@ -1 @@
-!
+
 ! $Id: readaerosolstrato2_rrtm.F90 2526 2016-05-26 22:13:40Z oboucher $
-!
+
 SUBROUTINE readaerosolstrato2_rrtm(debut, ok_volcan)
 
@@ -341 +341 @@
 
     IF (.NOT. ok_volcan) THEN
-!
+
 !--this is the default case 
 !--stratospheric aerosols are added to both index 2 and 1 for double radiation calls
@@ -367 +367 @@
     ENDWHERE
     ENDDO
-!
+
     ELSE
-!
+
 !--this is the VOLMIP case
 !--stratospheric aerosols are only added to index 2 in this case 
@@ -410 +410 @@
       ENDWHERE
     ENDDO
-!
+
     ELSE
-!
+
 !--this is the VOLMIP case
     DO band=1, NLW
@@ -418 +418 @@
 !--and we copy index 2 in index 1 because we want the same dust aerosol LW properties as above
       tau_aero_lw_rrtm(:,:,1,band)  = tau_aero_lw_rrtm(:,:,2,band)
-!
+
       WHERE (stratomask.GT.0.999999)
 !--stratospheric aerosols are only added to index 2