Ignore:
Timestamp:
Oct 7, 2008, 11:39:49 AM (16 years ago)
Author:
lsce
Message:
  • Changed variable name OCEAN to type_ocean in physiq.def

JG

File:
1 edited

Legend:

Unmodified
Added
Removed

  • LMDZ4/trunk/libf/dyn3dpar/mod_const_para.F90

    r1000 r1008  
    1818    INTEGER             :: thread_required
    1919    INTEGER             :: thread_provided
    20     CHARACTER(len = 6)  :: ocean
     20    CHARACTER(len = 6)  :: type_ocean
    2121
    2222!$OMP MASTER
    23     ocean = 'force '
    24     CALL getin('OCEAN', ocean)
     23    type_ocean = 'force '
     24    CALL getin('type_ocean', type_ocean)
    2525!$OMP END MASTER
    2626!$OMP BARRIER
    2727
    28     IF (ocean=='couple') THEN
     28    IF (type_ocean=='couple') THEN
    2929#ifdef CPP_COUPLE
    3030!$OMP MASTER
Note: See TracChangeset for help on using the changeset viewer.