Ignore:
Timestamp:
Aug 17, 2006, 5:41:51 PM (18 years ago)
Author:
Laurent Fairhead
Message:

Inclusion des modifs de Y. Meurdesoif pour la version V3
LF

Location:
LMDZ4/branches/V3_test/libf/bibio
Files:
4 edited

Legend:

Unmodified
Added
Removed

  • LMDZ4/branches/V3_test/libf/bibio/initdynav.F

    r524 r704  
    88
    99       USE IOIPSL
    10        USE histcom
    1110
    1211      implicit none

  • LMDZ4/branches/V3_test/libf/bibio/initfluxsto.F

    r524 r704  
    77
    88       USE IOIPSL
    9        USE histcom
    109
    1110      implicit none

  • LMDZ4/branches/V3_test/libf/bibio/inithist.F

    r524 r704  
    66
    77       USE IOIPSL
    8        USE histcom
    98
    109      implicit none

  • LMDZ4/branches/V3_test/libf/bibio/write_field.F90

    r703 r704  
    1212  interface WriteField
    1313    module procedure WriteField3d,WriteField2d,WriteField1d
    14   end interface
    15 
     14  end interface WriteField
    1615  contains
    1716 
    … …  
    227226        write (id,spacing)
    228227      else
    229         write (id,'("")')
     228        write (id,'')
    230229        write (id,spacing)
    231230      endif
    … …  
    304303  end subroutine write_field3D 
    305304 
    306   subroutine WriteField_phy(name,Field,ll)
    307     USE dimphy
    308     implicit none
    309     include 'dimensions90.h'
    310     include 'paramet90.h'
    311     character(len=*)   :: name
    312     integer :: ll
    313     real, dimension(klon2,ll) :: Field
    314     real, dimension(iim,jjp1,ll):: New_Field
    315    
    316    
    317     CALL gr_fi_ecrit(ll, klon2,iim,jjp1, Field, New_Field)
    318     CALL WriteField(name,New_Field)
    319   end subroutine WriteField_phy 
    320      
    321305  function int2str(int)
    322306    implicit none
Note: See TracChangeset for help on using the changeset viewer.