Ignore:
Timestamp:
2011-06-17T14:02:17+02:00 (14 years ago)
Author:
didier.solyga
Message:

Externalized version merged with the trunk

Location:
branches/ORCHIDEE_EXT/ORCHIDEE/src_parallel
Files:
8 edited

Legend:

Unmodified
Added
Removed

  • branches/ORCHIDEE_EXT/ORCHIDEE/src_parallel/AA_make

    r64 r257  
    11#- 
    2 #- $Id: AA_make,v 1.6 2010/04/06 14:34:32 ssipsl Exp $ 
     2#- $Id: AA_make 41 2011-01-01 19:56:53Z mmaipsl $ 
    33#- 
    4 MODS1 = timer.f90 \ 
    5         data_para.f90 \ 
     4MODS1 = data_para.f90 \ 
     5        timer.f90 \ 
    66        transfert_para.f90 \ 
    77        ioipsl_para.f90 \ 

  • branches/ORCHIDEE_EXT/ORCHIDEE/src_parallel/AA_make.ldef

    r64 r257  
    11#- 
    2 #- $Id: AA_make.ldef,v 1.3 2008/01/08 11:49:07 ssipsl Exp $ 
     2#- $Id: AA_make.ldef 12 2010-11-05 15:42:13Z mmaipsl $ 
    33#- 
    44#--------------------------------------------------------------------- 

  • branches/ORCHIDEE_EXT/ORCHIDEE/src_parallel/data_para.f90

    r64 r257  
    1111!- 
    1212  USE defprec 
    13   USE constantes 
    1413  USE ioipsl 
    1514!- 
    1615#include "src_parallel.h" 
    1716!- 
     17!- 
     18! Unit for output messages 
     19  INTEGER(i_std), SAVE :: numout = 6 
     20 
    1821  INTEGER, SAVE :: mpi_size                                           !! Number of parallel processes 
    1922  INTEGER, SAVE :: mpi_rank                                           !! my rank num 
    … …  
    203206  
    204207  SUBROUTINE init_data_para(iim,jjm,nbpoints,index_x) 
    205     USE constantes 
     208 
    206209    IMPLICIT NONE 
    207210#ifdef CPP_PARA 
    … …  
    457460  SUBROUTINE Write_Load_balance(times) 
    458461    IMPLICIT NONE 
    459     REAL,INTENT(IN) :: times 
     462    REAL(r_std),INTENT(IN) :: times 
    460463   
    461464#ifdef CPP_PARA   

  • branches/ORCHIDEE_EXT/ORCHIDEE/src_parallel/ioipsl_para.f90

    r64 r257  
    99  USE data_para 
    1010  USE transfert_para 
    11   USE constantes 
    1211!- 
    1312  IMPLICIT NONE 

  • branches/ORCHIDEE_EXT/ORCHIDEE/src_parallel/orch_write_field.f90

    r64 r257  
    77module orch_Write_Field 
    88   
    9   USE constantes 
     9  USE data_para 
    1010 
    1111  IMPLICIT NONE 

  • branches/ORCHIDEE_EXT/ORCHIDEE/src_parallel/timer.f90

    r64 r257  
    77MODULE timer 
    88 
    9   USE constantes 
     9  USE data_para 
    1010   
    1111  INTEGER, PARAMETER :: nb_timer=2 

  • branches/ORCHIDEE_EXT/ORCHIDEE/src_parallel/tools_para.f90

    r64 r257  
    1111  USE timer 
    1212  USE data_para 
    13   USE constantes 
    1413!- 
    1514#include "src_parallel.h" 

  • branches/ORCHIDEE_EXT/ORCHIDEE/src_parallel/transfert_para.f90

    r64 r257  
    99  USE data_para 
    1010  USE timer 
    11   USE constantes 
    1211!- 
    1312  IMPLICIT NONE 
    … …  
    552551    USE data_para 
    553552    USE timer 
    554     USE constantes 
    555553 
    556554    IMPLICIT NONE 
    … …  
    599597    USE data_para 
    600598    USE timer 
    601     USE constantes 
    602599 
    603600    IMPLICIT NONE 
    … …  
    647644    USE data_para 
    648645    USE timer 
    649     USE constantes 
    650646 
    651647    IMPLICIT NONE 
    … …  
    19531949    USE data_para 
    19541950    USE timer 
    1955     USE constantes 
    19561951 
    19571952    IMPLICIT NONE 
    … …  
    19851980    USE data_para 
    19861981    USE timer 
    1987     USE constantes 
    19881982 
    19891983    IMPLICIT NONE 
    … …  
    20182012    USE data_para 
    20192013    USE timer 
    2020     USE constantes 
    20212014 
    20222015    IMPLICIT NONE 
    … …  
    20502043    USE data_para 
    20512044    USE timer 
    2052     USE constantes 
    20532045 
    20542046    IMPLICIT NONE 
    … …  
    20842076    USE data_para 
    20852077    USE timer 
    2086     USE constantes 
    20872078 
    20882079    IMPLICIT NONE 
    … …  
    21392130    USE data_para 
    21402131    USE timer 
    2141     USE constantes 
    21422132 
    21432133    IMPLICIT NONE 
    … …  
    21952185    USE data_para 
    21962186    USE timer 
    2197     USE constantes 
    21982187 
    21992188    IMPLICIT NONE 
    … …  
    22502239    USE data_para 
    22512240    USE timer 
    2252     USE constantes 
    22532241 
    22542242    IMPLICIT NONE 
    … …  
    23192307    USE data_para 
    23202308    USE timer 
    2321     USE constantes 
    23222309 
    23232310    IMPLICIT NONE 
    … …  
    23872374    USE data_para 
    23882375    USE timer 
    2389     USE constantes 
    23902376 
    23912377    IMPLICIT NONE 
    … …  
    24562442    USE data_para, iim=>iim_g,jjm=>jjm_g 
    24572443    USE timer 
    2458     USE constantes 
    24592444 
    24602445    IMPLICIT NONE 
    … …  
    25212506    USE data_para, iim=>iim_g,jjm=>jjm_g 
    25222507    USE timer 
    2523     USE constantes 
    25242508 
    25252509    IMPLICIT NONE 
    … …  
    25902574    USE data_para, iim=>iim_g,jjm=>jjm_g 
    25912575    USE timer 
    2592     USE constantes 
    25932576 
    25942577    IMPLICIT NONE 
    … …  
    26552638    USE data_para, iim=>iim_g,jjm=>jjm_g 
    26562639    USE timer 
    2657     USE constantes 
    26582640 
    26592641    IMPLICIT NONE 
    … …  
    27332715    USE data_para, iim=>iim_g,jjm=>jjm_g 
    27342716    USE timer 
    2735     USE constantes 
    27362717 
    27372718    IMPLICIT NONE 
    … …  
    28102791    USE data_para, iim=>iim_g,jjm=>jjm_g 
    28112792    USE timer 
    2812     USE constantes 
    28132793 
    28142794    IMPLICIT NONE 
    … …  
    28872867    USE data_para 
    28882868    USE timer 
    2889     USE constantes 
    28902869 
    28912870    IMPLICIT NONE 
    … …  
    29222901    USE data_para 
    29232902    USE timer 
    2924     USE constantes 
    29252903 
    29262904    IMPLICIT NONE 
Note: See TracChangeset for help on using the changeset viewer.