- Timestamp:
- 07/20/18 11:14:21 (6 years ago)
- Location:
- codes/icosagcm/trunk/src
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
codes/icosagcm/trunk/src/icosa_init.f90
r668 r710 55 55 CALL output_field_init 56 56 CALL init_timeloop 57 58 !$OMP END PARALLEL 59 57 60 CALL init_physics 58 61 62 !$OMP PARALLEL 63 59 64 CALL init_diagflux 60 65 CALL zero_du_phys -
codes/icosagcm/trunk/src/physics/physics.f90
r668 r710 39 39 SELECT CASE(TRIM(physics_type)) 40 40 CASE ('none') 41 42 !$OMP PARALLEL 41 43 IF(is_mpi_root) PRINT*,"NO PHYSICAL PACKAGE USED" 42 44 phys_type = phys_none 45 !$OMP END PARALLEL 46 43 47 CASE ('held_suarez') 48 49 !$OMP PARALLEL 44 50 phys_type = phys_HS94 51 !$OMP END PARALLEL 52 45 53 CASE ('Lebonnois2012') 54 55 !$OMP PARALLEL 46 56 phys_type = phys_LB2012 47 57 CALL init_phys_venus 58 !$OMP END PARALLEL 48 59 49 60 CASE ('phys_lmdz_generic') 61 62 !$OMP PARALLEL 50 63 CALL init_physics_lmdz_generic 51 64 phys_type=phys_lmdz_generic 65 !$OMP END PARALLEL 66 52 67 CASE ('phys_external') 68 53 69 CALL init_physics_external 70 !$OMP PARALLEL 54 71 phys_type=phys_external 72 !$OMP END PARALLEL 73 55 74 CASE ('dcmip') 75 76 !$OMP PARALLEL 56 77 CALL allocate_field(f_dulon,field_t,type_real,llm, name='dulon') 57 78 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 66 87 phys_type = phys_DCMIP 88 !$OMP END PARALLEL 89 67 90 CASE ('dcmip2016') 91 92 !$OMP PARALLEL 68 93 CALL allocate_field(f_dulon,field_t,type_real,llm, name='dulon') 69 94 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 78 103 phys_type = phys_DCMIP2016 104 !$OMP END PARALLEL 105 79 106 CASE DEFAULT 80 107 IF(is_mpi_root) PRINT*, 'init_physics : Bad selector for variable physics <',&
Note: See TracChangeset
for help on using the changeset viewer.