Changeset 989 for LMDZ4/trunk


Ignore:
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:
2 edited

Legend:

Unmodified
Added
Removed

  • LMDZ4/trunk/libf/dyn3d/create_etat0_limit.F

    r960 r989  
    3131#include  "control.h"
    3232      REAL :: masque(iip1,jjp1)
    33       REAL :: pctsrf(iim*(jjm-1)+2, nbsrf)
     33!      REAL :: pctsrf(iim*(jjm-1)+2, nbsrf)
    3434
    3535c initialisation traceurs
    … …  
    6464     
    6565c     
    66       CALL  limit_netcdf ( interbar, extrap , oldice, masque, pctsrf )
     66      CALL  limit_netcdf ( interbar, extrap , oldice, masque)
    6767
    68681     FORMAT(//)

  • LMDZ4/trunk/libf/dyn3d/limit_netcdf.F

    r762 r989  
    44C
    55C
    6       SUBROUTINE limit_netcdf(interbar, extrap, oldice, masque, pctsrf)
     6      SUBROUTINE limit_netcdf(interbar, extrap, oldice, masque)
    77      USE dimphy
     8      use phys_state_var_mod , ONLY : pctsrf
    89      IMPLICIT none
    910c
    … …  
    4445c
    4546      real pctsrf_t(klon,nbsrf,360)
    46       real pctsrf(klon,nbsrf)
     47
    4748      REAL verif
    4849
Note: See TracChangeset for help on using the changeset viewer.