Changeset 178

Timestamp:

12/13/13 18:32:35 (11 years ago)

Author:

mtort

Message:

Fixed no-physics message

File:

• codes/icosagcm/trunk/src/physics.f90 (modified) (3 diffs)

codes/icosagcm/trunk/src/physics.f90

@@ -7 +7 @@
 
   SUBROUTINE init_physics
+    USE mpipara
+    USE etat0_mod
     USE icosa
     USE physics_dcmip_mod,init_physics_dcmip=>init_physics
@@ -12 +14 @@
     IMPLICIT NONE
 
+    physics_type='automatic'
     CALL getin("physics",physics_type)
 
     SELECT CASE(TRIM(physics_type))
     CASE ('automatic')
+       etat0_type='jablonowsky06'
+       CALL getin("etat0",etat0_type)
+       SELECT CASE(TRIM(etat0_type))
+       CASE('held_suarez')
+       CASE DEFAULT
+          IF(is_mpi_root) PRINT*,"NO PHYSICAL PACKAGE USED"
+       END SELECT
+
 
     CASE ('dcmip')
@@ -56 +67 @@
           !     CALL transfert_request(f_ue,req_e1_vect)
           CALL held_suarez(f_ps,f_theta_rhodz,f_ue) 
-       CASE DEFAULT
-          PRINT*,"NO PHYSICAL PACAKAGE USED" ! FIXME MPI
        END SELECT