Changeset 3825 for dynamico_lmdz/aquaplanet/LMDZ5/libf/phylmd/init_be.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/init_be.F90 (modified) (2 diffs)

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

@@ -5 +5 @@
 
   USE dimphy
-  USE comgeomphy
   USE infotrac_phy, ONLY : nbtr
   USE indice_sol_mod
+  USE geometry_mod, ONLY : longitude, latitude
     
   IMPLICIT NONE 
@@ -114 +114 @@
 
   DO i = 1,klon
-     qcos=sin(glt)*sin(rlatd(i))
+     qcos=sin(glt)*sin(latitude(i))
 !!jyg
 !!     qcos=qcos+cos(glt)*cos(rlatd(i))*cos(rlond(i)+glg)
-     qcos=qcos+cos(glt)*cos(rlatd(i))*cos(rlond(i)-glg)
+     qcos=qcos+cos(glt)*cos(latitude(i))*cos(longitude(i)-glg)
 !!jyg end
      IF ( qcos .LT. -1.) qcos = -1.