Changeset 1160

Timestamp:

May 14, 2009, 11:23:40 AM (15 years ago)

Author:

jghattas

Message:

radlwsw_aero reprend son ancien nom radlwsw.

Location:

LMDZ4/branches/LMDZ4-dev/libf/phylmd

Files:

• physiq.F (modified) (1 diff)
• radlwsw.F90 (moved) (moved from LMDZ4/branches/LMDZ4-dev/libf/phylmd/radlwsw_aero.F90) (3 diffs)

LMDZ4/branches/LMDZ4-dev/libf/phylmd/physiq.F

@@ -2940 +2940 @@
       ELSE
 
-         CALL radlwsw_aero
+         CALL radlwsw
      e        (dist, rmu0, fract, 
      e        paprs, pplay,zxtsol,albsol1, albsol2, 

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

@@ -1 @@
-SUBROUTINE radlwsw_aero( &
+SUBROUTINE radlwsw( &
    dist, rmu0, fract, &
    paprs, pplay,tsol,alb1, alb2, &
@@ -343 +343 @@
 !===== iflag_rrtm=1, on passe dans SW via RECMWFL ===============
        WRITE(lunout,*) "Option iflag_rrtm=T ne fonctionne pas encore !!!"
-       CALL abort_gcm('radlwsw_aero','iflag_rrtm=T not valid',1) 
+       CALL abort_gcm('radlwsw','iflag_rrtm=T not valid',1) 
 
     ENDIF ! iflag_rrtm
@@ -426 +426 @@
 
 
-END SUBROUTINE radlwsw_aero
-
-
+END SUBROUTINE radlwsw
+
+