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

File:
1 edited

Legend:

Unmodified
Added
Removed

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

    r703 r704  
    99      USE IOIPSL
    1010#endif
    11 
     11      USE dimphy
     12      USE comgeomphy
    1213      IMPLICIT NONE
    1314
    … …  
    183184      CALL defrun( 99, .TRUE. , clesphy0 )
    184185#endif
     186
     187      call InitDimphy
     188      call init_phys_openmp
     189      call InitComgeomphy
     190c
     191c
     192c------------------------------------
     193c   Initialisation partie parallele
     194c------------------------------------
     195
    185196c
    186197c
Note: See TracChangeset for help on using the changeset viewer.