Changeset 642


Ignore:
Timestamp:
May 25, 2005, 2:37:55 PM (19 years ago)
Author:
Laurent Fairhead
Message:

Pour une compilation correcte quand on est en monocpu
LF

File:
1 edited

Legend:

Unmodified
Added
Removed

  • LMDZ4/trunk/libf/phylmd/dimphy.F90

    r629 r642  
    4242 
    4343   subroutine InitDimphy
     44
     45#ifdef CPP_PARALLEL
    4446   use parallel
     47#endif
     48
    4549   implicit none
    4650#include "dimensions90.h"
    … …  
    4953    integer :: i,j,Pos,Index
    5054    logical,save :: First=.true.
     55#ifndef CPP_PARALLEL
     56   logical, save :: pole_nord = .true.
     57   logical, save :: pole_sud = .true.
     58#endif
    5159
    5260#ifdef CPP_PARALLEL     
Note: See TracChangeset for help on using the changeset viewer.