Changeset 1153

Timestamp:

May 4, 2009, 2:32:01 PM (16 years ago)

Author:

jghattas

Message:

Changement de nom de fichier et nom de subroutine en ajoutant AR4 pour faire comprendre que cette subroutine fait partie du paquet de la radiation AR4.

Location:

LMDZ4/branches/LMDZ4-dev/libf/phylmd

Files:

• radlwsw_aero.F90 (modified) (1 diff)
• sw_aeroAR4.F90 (moved) (moved from LMDZ4/branches/LMDZ4-dev/libf/phylmd/sw_aero.F90) (2 diffs)

LMDZ4/branches/LMDZ4-dev/libf/phylmd/radlwsw_aero.F90

@@ -312 +312 @@
     ELSE
 
-        CALL SW_AERO(PSCT, zrmu0, zfract,&
+        CALL SW_AEROAR4(PSCT, zrmu0, zfract,&
            PPMB, PDP,&
            PPSOL, PALBD, PALBP,&

LMDZ4/branches/LMDZ4-dev/libf/phylmd/sw_aeroAR4.F90

@@ -1 @@
-SUBROUTINE SW_AERO(PSCT, PRMU0, PFRAC, &
+SUBROUTINE SW_AEROAR4(PSCT, PRMU0, PFRAC, &
      PPMB, PDP, &
      PPSOL, PALBD, PALBP,&
@@ -747 +747 @@
 
   ENDDO
-END SUBROUTINE SW_AERO
-
+END SUBROUTINE SW_AEROAR4
+