Changeset 726 for codes/icosagcm/devel/src/physics

Timestamp:

08/22/18 17:28:01 (6 years ago)

Author:

dubos

Message:

devel : backported from trunk commits r707-r711,r713

File:

• codes/icosagcm/devel/src/physics/physics.f90 (modified) (4 diffs)

codes/icosagcm/devel/src/physics/physics.f90

@@ -39 +39 @@
     SELECT CASE(TRIM(physics_type))
     CASE ('none')
+
+!$OMP PARALLEL
        IF(is_mpi_root) PRINT*,"NO PHYSICAL PACKAGE USED"
        phys_type = phys_none
+!$OMP END PARALLEL
+
     CASE ('held_suarez')
+
+!$OMP PARALLEL
        phys_type = phys_HS94
+!$OMP END PARALLEL
+
     CASE ('Lebonnois2012')
+
+!$OMP PARALLEL
        phys_type = phys_LB2012
        CALL init_phys_venus
+!$OMP END PARALLEL
 
     CASE ('phys_lmdz_generic')
+
+!$OMP PARALLEL
        CALL init_physics_lmdz_generic
        phys_type=phys_lmdz_generic
+!$OMP END PARALLEL
+
     CASE ('phys_external')
+
        CALL init_physics_external
+!$OMP PARALLEL
        phys_type=phys_external
+!$OMP END PARALLEL
+
     CASE ('dcmip')
+
+!$OMP PARALLEL
        CALL allocate_field(f_dulon,field_t,type_real,llm, name='dulon')
        CALL allocate_field(f_dulat,field_t,type_real,llm, name='dulat')
@@ -65 +86 @@
        CALL init_pack_after ! Defines Ai, lon, lat in physics_inout
        phys_type = phys_DCMIP
+!$OMP END PARALLEL
+
     CASE ('dcmip2016')
+
+!$OMP PARALLEL
        CALL allocate_field(f_dulon,field_t,type_real,llm, name='dulon')
        CALL allocate_field(f_dulat,field_t,type_real,llm, name='dulat')
@@ -77 +102 @@
        CALL init_pack_after ! Defines Ai, lon, lat in physics_inout
        phys_type = phys_DCMIP2016
+!$OMP END PARALLEL
+
     CASE DEFAULT
        IF(is_mpi_root) PRINT*, 'init_physics : Bad selector for variable physics <',&
@@ -84 +111 @@
     END SELECT
 
+!$OMP PARALLEL
     CALL allocate_field(f_du_phys,field_u,type_real,llm, name='du_phys')
 
     IF(is_mpi_root) PRINT *, 'phys_type = ',phys_type
+!$OMP END PARALLEL
   END SUBROUTINE init_physics