Changeset 355 for LMDZ.3.3/branches

Timestamp:

Mar 25, 2002, 11:57:58 AM (23 years ago)

Author:

lmdzadmin

Message:

On passe un entier a grid_noro alors qu'on attend un reel apres les modifs
pour les surfaces fractionnaires
LF

File:

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

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

@@ -342 +342 @@
       CALL grid_noro(iml_rel, jml_rel, lon_rad, lat_rad, relief_hi,
      . iml-1, jml, lon_in, lat_in, 
-     . phis, relief, zstd, zsig, zgam, zthe, zpic, zval, tmp_int)
+     . phis, relief, zstd, zsig, zgam, zthe, zpic, zval, masque)
       phis = phis * 9.81
     !
-      masque(:,:) = FLOAT(tmp_int(:,:))
+!      masque(:,:) = FLOAT(tmp_int(:,:))
     !
     !  Compute surface roughness