Changeset 434 for codes/icosagcm/trunk/src/physics_dcmip2016.f90

Timestamp:

06/15/16 22:35:17 (8 years ago)

Author:

dubos

Message:

Dry/moist output cleanup

File:

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

codes/icosagcm/trunk/src/physics_dcmip2016.f90

@@ -34 +34 @@
   SUBROUTINE init_physics
     USE physics_interface_mod
+    USE omp_para
     IMPLICIT NONE
     INTEGER :: ngrid
     CHARACTER(LEN=255) :: testcase_str 
     
+    testcase_str='undefined'
     CALL getin("physics_dcmip2016",testcase_str)
    
@@ -53 +55 @@
       CASE DEFAULT
          PRINT*, 'Bad selector for dcmip2016 test case <', testcase_str, &
-              '> options are <dry_baroclinic>, <moist_baroclinic>, <cyclone>, <supercell>'
+              '> options are <dry_baroclinic>, <moist_baroclinic_full>, <moist_baroclinic_kessler>, <cyclone>, <supercell>'
          STOP
     END SELECT
@@ -59 +61 @@
     PBL=.FALSE.
     CALL getin("physics_dcmip2016_PBL",PBL)
+    IF(is_master) THEN
+       IF(PBL) THEN
+          PRINT *, 'PBL=.TRUE., Bryan PBL activated'
+       ELSE
+          PRINT *, 'PBL=.FALSE., Reed & Jablonowski PBL activated'
+       END IF
+    END IF
 
     ngrid = physics_inout%ngrid