Changeset 973 for codes

Timestamp:

09/19/19 17:18:16 (5 years ago)

Author:

jisesh

Message:

devel: Added CASE DEFAULT in nudging variable

File:

• codes/icosagcm/devel/src/dissip/nudging_mod.f90 (modified) (3 diffs)

codes/icosagcm/devel/src/dissip/nudging_mod.f90

@@ -56 +56 @@
 
     SELECT CASE(TRIM(guided_nudging_field))
-        CASE('wind','temperature','wind_temperature')
+        CASE('wind','temperature','ps','wind_temperature','wind_temperature_ps')
             CALL allocate_field(f_relax_coef_e, field_u, type_real, name='nudging_coef_e')
             CALL allocate_field(f_target_ue, field_u, type_real, llm, name='nudging_target_e')
@@ -64 +64 @@
         CASE DEFAULT
                  PRINT*,"Bad selector for varaible init_guided_nudging>",TRIM(guided_nudging_field)
-                 PRINT*," option are <none>, <wind>, <temperature>,<wind_temperature>"
+                 PRINT*,"options are <wind>, <temperature>,<ps>,<wind_temperature>,<wind_temperature_ps>"
                  STOP
     END SELECT
@@ -275 +275 @@
            ps2 = f_ps(ind)
            CALL compute_guided_center2(coef_i, target_ps, ps2)
-         END SELECT
+         CASE DEFAULT
+                 PRINT*,"Bad selector for varaible <guided_nudging_field>",TRIM(guided_nudging_field)
+                 PRINT*,"options are <wind>, <temperature>,<ps>,<wind_temperature>,<wind_temperature_ps>"
+                 STOP
+       END SELECT
     END DO