Ignore:
Timestamp:
May 4, 2005, 5:11:29 PM (20 years ago)
Author:
Laurent Fairhead
Message:

Modifications faites à la physique pour la rendre parallele YM
Une branche de travail LMDZ4_par_0 a été créée provisoirement afin de tester
les modifs pleinement avant leurs inclusions dans le tronc principal
LF

Location:
LMDZ4/branches/LMDZ4_par_0/libf/dyn3d
Files:
2 edited

Legend:

Unmodified
Added
Removed

  • LMDZ4/branches/LMDZ4_par_0/libf/dyn3d/gcm.F

    r633 r634  
    99      USE IOIPSL
    1010#endif
     11
     12      USE dimphy
     13      USE comgeomphy
    1114
    1215      IMPLICIT NONE
    … …  
    188191c
    189192c
     193c------------------------------------
     194c   Initialisation partie parallele
     195c------------------------------------
     196      call InitDimphy
     197      call InitComgeomphy
     198
    190199c-----------------------------------------------------------------------
    191200c   Initialisation des traceurs

  • LMDZ4/branches/LMDZ4_par_0/libf/dyn3d/paramet.h

    r524 r634  
    1010      INTEGER jcfil,jcfllm
    1111
    12       PARAMETER( iip1= iim+1-1/iim,iip2=iim+2,iip3=iim+3
    13      s    ,jjp1=jjm+1-1/jjm)
     12      PARAMETER( iip1= iim+1-1/iim,iip2=iim+2,iip3=iim+3)
     13      PARAMETER( jjp1=jjm+1-1/jjm)
    1414      PARAMETER( llmp1 = llm+1,  llmp2 = llm+2, llmm1 = llm-1 )
    1515      PARAMETER( kftd  = iim/2 -ndm )
Note: See TracChangeset for help on using the changeset viewer.