Changeset 713


Ignore:
Timestamp:
08/03/18 13:47:54 (6 years ago)
Author:
ymipsl
Message:

Little fix for OpenMP using external physics

YM

File:
1 edited

Legend:

Unmodified
Added
Removed

  • codes/icosagcm/trunk/src/physics/physics.f90

    r710 r713  
    111111    END SELECT 
    112112 
     113!$OMP PARALLEL 
    113114    CALL allocate_field(f_du_phys,field_u,type_real,llm, name='du_phys') 
    114115 
    115116    IF(is_mpi_root) PRINT *, 'phys_type = ',phys_type 
     117!$OMP END PARALLEL 
    116118  END SUBROUTINE init_physics 
    117119 
Note: See TracChangeset for help on using the changeset viewer.