Changeset 3825 for dynamico_lmdz/aquaplanet/LMDZ5/libf/phylmd/radlwsw_m.F90

Timestamp:

May 6, 2015, 12:14:12 PM (10 years ago)

Author:

ymipsl

Message:

Reorganize geometry and grid modules. Prepare physics for unstructutured grid support. Simplify initialization of physics from dynamic.
Compiled only with dynd3dmem, but not tested for moment.

YM

File:

• dynamico_lmdz/aquaplanet/LMDZ5/libf/phylmd/radlwsw_m.F90 (modified) (1 diff)

dynamico_lmdz/aquaplanet/LMDZ5/libf/phylmd/radlwsw_m.F90

@@ -769 +769 @@
       ENDDO
 !----- Fin des mises a zero des tableaux output de RECMWF -------------------              
-!        GEMU(1:klon)=sin(rlatd(1:klon))
+!        GEMU(1:klon)=sin(latitude(1:klon))
 ! On met les donnees dans l'ordre des niveaux arpege
          paprs_i(:,1)=paprs(:,klev+1)