Ignore:
Timestamp:
Jul 24, 2013, 10:06:39 AM (11 years ago)
Author:
Ehouarn Millour
Message:

Updating makelmdz and create_makelmdz for :

1 parallelism
2 compilation with various versions of orchidee
3 compilation in 1D mode
4 some cleaning

Also some updates in dyn3dmem:
1 allocate_field_mod.f90 renamed allocate_field_mod.F90
2 module dimensions renamed dimensions_mod
3 module allocate_field renamed allocate_field

FH

File:
1 moved

Legend:

Unmodified
Added
Removed

  • LMDZ5/trunk/libf/dyn3dmem/allocate_field_mod.F90

    r1809 r1810  
    1 MODULE allocate_field
     1MODULE allocate_field_mod
    22
    33  INTERFACE allocate_u
    … …  
    158158  SUBROUTINE allocate1d_u2d(field,d)
    159159  USE parallel
    160   USE dimensions
     160  USE dimensions_mod
    161161  IMPLICIT NONE
    162162  REAL,POINTER :: field(:,:)
    … …  
    175175  SUBROUTINE allocate2d_u2d(field,dim1,d)
    176176  USE parallel
    177   USE dimensions
     177  USE dimensions_mod
    178178  IMPLICIT NONE
    179179  REAL,POINTER :: field(:,:,:)
    … …  
    192192  SUBROUTINE allocate3d_u2d(field,dim1,dim2,d)
    193193  USE parallel
    194   USE dimensions
     194  USE dimensions_mod
    195195  IMPLICIT NONE
    196196  REAL,POINTER :: field(:,:,:,:)
    … …  
    211211  SUBROUTINE allocate1d_v2d(field,d)
    212212  USE parallel
    213   USE dimensions
     213  USE dimensions_mod
    214214  IMPLICIT NONE
    215215  REAL,POINTER :: field(:,:)
    … …  
    228228  SUBROUTINE allocate2d_v2d(field,dim1,d)
    229229  USE parallel
    230   USE dimensions
     230  USE dimensions_mod
    231231  IMPLICIT NONE
    232232  REAL,POINTER :: field(:,:,:)
    … …  
    245245  SUBROUTINE allocate3d_v2d(field,dim1,dim2,d)
    246246  USE parallel
    247   USE dimensions
     247  USE dimensions_mod
    248248  IMPLICIT NONE
    249249  REAL,POINTER :: field(:,:,:,:)
    … …  
    511511  USE parallel
    512512  USE mod_hallo
    513   USE dimensions
     513  USE dimensions_mod
    514514  IMPLICIT NONE
    515515  REAL,POINTER :: field(:,:)
    … …  
    548548  USE parallel
    549549  USE mod_hallo
    550   USE dimensions
     550  USE dimensions_mod
    551551  IMPLICIT NONE
    552552  REAL,POINTER :: field(:,:,:)
    … …  
    585585  USE parallel
    586586  USE mod_hallo
    587   USE dimensions
     587  USE dimensions_mod
    588588  IMPLICIT NONE
    589589  REAL,POINTER :: field(:,:,:,:)
    … …  
    625625  USE parallel
    626626  USE mod_hallo
    627   USE dimensions
     627  USE dimensions_mod
    628628  IMPLICIT NONE
    629629  REAL,POINTER :: field(:,:)
    … …  
    662662  USE parallel
    663663  USE mod_hallo
    664   USE dimensions
     664  USE dimensions_mod
    665665  IMPLICIT NONE
    666666  REAL,POINTER :: field(:,:,:)
    … …  
    699699  USE parallel
    700700  USE mod_hallo
    701   USE dimensions
     701  USE dimensions_mod
    702702  IMPLICIT NONE
    703703  REAL,POINTER :: field(:,:,:,:)
    … …  
    733733  END SUBROUTINE switch3d_v2d
    734734
    735 END MODULE allocate_field
    736  
    737  
    738  
    739  
     735END MODULE allocate_field_mod
     736 
     737 
     738 
     739 
Note: See TracChangeset for help on using the changeset viewer.