- Timestamp:
- 09/19/19 17:18:16 (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
codes/icosagcm/devel/src/dissip/nudging_mod.f90
r972 r973 56 56 57 57 SELECT CASE(TRIM(guided_nudging_field)) 58 CASE('wind','temperature',' wind_temperature')58 CASE('wind','temperature','ps','wind_temperature','wind_temperature_ps') 59 59 CALL allocate_field(f_relax_coef_e, field_u, type_real, name='nudging_coef_e') 60 60 CALL allocate_field(f_target_ue, field_u, type_real, llm, name='nudging_target_e') … … 64 64 CASE DEFAULT 65 65 PRINT*,"Bad selector for varaible init_guided_nudging>",TRIM(guided_nudging_field) 66 PRINT*," option are <none>, <wind>, <temperature>,<wind_temperature>"66 PRINT*,"options are <wind>, <temperature>,<ps>,<wind_temperature>,<wind_temperature_ps>" 67 67 STOP 68 68 END SELECT … … 275 275 ps2 = f_ps(ind) 276 276 CALL compute_guided_center2(coef_i, target_ps, ps2) 277 END SELECT 277 CASE DEFAULT 278 PRINT*,"Bad selector for varaible <guided_nudging_field>",TRIM(guided_nudging_field) 279 PRINT*,"options are <wind>, <temperature>,<ps>,<wind_temperature>,<wind_temperature_ps>" 280 STOP 281 END SELECT 278 282 END DO 279 283
Note: See TracChangeset
for help on using the changeset viewer.