Changeset 989

Timestamp:

Aug 5, 2008, 4:54:10 PM (16 years ago)

Author:

Laurent Fairhead

Message:

Corrections suite a la re-ecriture de phyredem.F
Quelques initialisations de plus
LF

Location:

LMDZ4/trunk/libf/dyn3d

Files:

• create_etat0_limit.F (modified) (2 diffs)
• limit_netcdf.F (modified) (2 diffs)

LMDZ4/trunk/libf/dyn3d/create_etat0_limit.F

@@ -31 +31 @@
 #include  "control.h"
       REAL :: masque(iip1,jjp1)
-      REAL :: pctsrf(iim*(jjm-1)+2, nbsrf)
+!      REAL :: pctsrf(iim*(jjm-1)+2, nbsrf)
 
 c initialisation traceurs
@@ -64 +64 @@
       
 c     
-      CALL  limit_netcdf ( interbar, extrap , oldice, masque, pctsrf )
+      CALL  limit_netcdf ( interbar, extrap , oldice, masque)
 
 1     FORMAT(//)

LMDZ4/trunk/libf/dyn3d/limit_netcdf.F

@@ -4 +4 @@
 C
 C
-      SUBROUTINE limit_netcdf(interbar, extrap, oldice, masque, pctsrf)
+      SUBROUTINE limit_netcdf(interbar, extrap, oldice, masque)
       USE dimphy
+      use phys_state_var_mod , ONLY : pctsrf
       IMPLICIT none
 c
@@ -44 +45 @@
 c
       real pctsrf_t(klon,nbsrf,360)
-      real pctsrf(klon,nbsrf)
+
       REAL verif