Changeset 177 for LMDZ.3.3/branches/rel-LF/libf/dyn3d/grid_noro.F

Timestamp:

Mar 9, 2001, 4:36:10 PM (23 years ago)

Author:

lmdzadmin

Message:

Lots of stuff, plus particulierement:

• appel a ORCHIDEE en etat de marche (pb de grille subsiste)
• modifs de Pascale sur soil dans le cas ou ok_veget=false -

File:

• LMDZ.3.3/branches/rel-LF/libf/dyn3d/grid_noro.F (modified) (1 diff)

LMDZ.3.3/branches/rel-LF/libf/dyn3d/grid_noro.F

@@ -332 +332 @@
 c angle theta:
            zthe(ii,jj)=57.29577951*atan2(xm,xl)/2.
-c$$$           zphi(ii,jj)=zmea(ii,jj)
+           zphi(ii,jj)=zmea(ii,jj)
 c$$$           zmea(ii,jj)=zmea(ii,jj)
 c$$$           zpic(ii,jj)=zpic(ii,jj)