Changeset 814 for trunk/LMDZ.VENUS/libf


Ignore:
Timestamp:
Oct 23, 2012, 7:07:54 PM (12 years ago)
Author:
slebonnois
Message:

SL: corrections de bugs pour Titan, + suppression de la dependance circulaire dans mod_grid_phy_lmdz.F90, + petite inversion sur la ligne 101 de create_make_gcm pour que disvert compile du premier coup.

File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/LMDZ.VENUS/libf/phyvenus/mod_grid_phy_lmdz.F90

    r101 r814  
    33!
    44MODULE mod_grid_phy_lmdz
     5
     6  PUBLIC
     7  PRIVATE :: grid1dTo2d_glo_igen, grid1dTo2d_glo_rgen, grid1dTo2d_glo_lgen, &
     8             grid2dTo1d_glo_igen, grid2dTo1d_glo_rgen, grid2dTo1d_glo_lgen
     9
    510  INTEGER,SAVE :: nbp_lon  ! == iim
    611  INTEGER,SAVE :: nbp_lat  ! == jjmp1
    … …  
    271276  END SUBROUTINE grid2dTo1d_glo_l3
    272277
    273 END MODULE mod_grid_phy_lmdz
    274 
    275 
    276  
     278!----------------------------------------------------------------
     279!  fonctions generiques (privees)
     280!----------------------------------------------------------------
    277281  SUBROUTINE grid1dTo2d_glo_igen(VarIn,VarOut,dimsize)
    278     USE mod_grid_phy_lmdz
    279282    IMPLICIT NONE
    280283
    … …  
    311314
    312315  SUBROUTINE grid1dTo2d_glo_rgen(VarIn,VarOut,dimsize)
    313     USE mod_grid_phy_lmdz
    314316    IMPLICIT NONE
    315317
    … …  
    345347
    346348  SUBROUTINE grid1dTo2d_glo_lgen(VarIn,VarOut,dimsize)
    347     USE mod_grid_phy_lmdz
    348349    IMPLICIT NONE
    349350   
    … …  
    379380 
    380381  SUBROUTINE grid2dTo1d_glo_igen(VarIn,VarOut,dimsize)
    381     USE mod_grid_phy_lmdz
    382382    IMPLICIT NONE
    383383
    … …  
    402402 
    403403  SUBROUTINE grid2dTo1d_glo_rgen(VarIn,VarOut,dimsize)
    404     USE mod_grid_phy_lmdz
    405404    IMPLICIT NONE
    406405
    … …  
    425424   
    426425  SUBROUTINE grid2dTo1d_glo_lgen(VarIn,VarOut,dimsize)
    427     USE mod_grid_phy_lmdz
    428426    IMPLICIT NONE
    429427
    … …  
    446444   
    447445  END SUBROUTINE grid2dTo1d_glo_lgen   
     446
     447END MODULE mod_grid_phy_lmdz
Note: See TracChangeset for help on using the changeset viewer.