Changeset 642
- Timestamp:
- May 25, 2005, 2:37:55 PM (20 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ4/trunk/libf/phylmd/dimphy.F90
r629 r642 42 42 43 43 subroutine InitDimphy 44 45 #ifdef CPP_PARALLEL 44 46 use parallel 47 #endif 48 45 49 implicit none 46 50 #include "dimensions90.h" … … 49 53 integer :: i,j,Pos,Index 50 54 logical,save :: First=.true. 55 #ifndef CPP_PARALLEL 56 logical, save :: pole_nord = .true. 57 logical, save :: pole_sud = .true. 58 #endif 51 59 52 60 #ifdef CPP_PARALLEL
Note: See TracChangeset
for help on using the changeset viewer.