Changeset 468 for codes/icosagcm


Ignore:
Timestamp:
09/02/16 17:25:15 (8 years ago)
Author:
ymipsl
Message:

Add missing state for init_etat0 forgotten from last commit

YM

File:
1 edited

Legend:

Unmodified
Added
Removed

  • codes/icosagcm/trunk/src/etat0.f90

    r467 r468  
    3535      CASE ('dcmip3') 
    3636      CASE ('dcmip4') 
     37      CASE ('dcmip2016_baroclinic_wave') 
     38      CASE ('dcmip2016_cyclone') 
     39      CASE ('dcmip2016_supercell') 
    3740      CASE DEFAULT 
    38          PRINT*, 'Bad selector for variable etat0 <',etat0_type, & 
    39             '> options are <jablonowsky06>, <academic>, <dcmip[1-4]> ' 
     41         PRINT*, 'Bad selector for variable etat0 <',TRIM(etat0_type),'>'// & 
     42            ' options are  <isothermal>, <temperature_profile>, <jablonowsky06>, <dcmip5>, <williamson91.6>,'&  
     43                         //' <start_file>, <database>, <academic>, <held_suarez>, <venus>, <dcmip1>,'         & 
     44                         //' <dcmip2_mountain,dcmip2_schaer_noshear,dcmip2_schaer_shear>, <dcmip3>, <dcmip4>,'& 
     45                         //' <dcmip2016_baroclinic_wave>, <dcmip2016_cyclone>, <dcmip2016_supercell>' 
    4046         STOP 
    4147    END SELECT 
    … …  
    140146         CALL etat0_collocated(f_phis,f_ps,f_mass,f_theta_rhodz,f_u, f_geopot,f_W, f_q) 
    141147      ELSE 
    142          PRINT*, 'Bad selector for variable etat0 <',etat0_type, & 
    143               '> options are <isothermal>, <temperature_profile>, <held_suarez>, & 
    144               &<bubble>, <venus>, <jablonowsky06>, <start_file>, <database>, <academic>, <dcmip[1-4]> ' 
     148         PRINT*, 'Bad selector for variable etat0 <',TRIM(etat0_type),'>'// & 
     149            ' options are  <isothermal>, <temperature_profile>, <jablonowsky06>, <dcmip5>, <williamson91.6>,'&  
     150                         //' <start_file>, <database>, <academic>, <held_suarez>, <venus>, <dcmip1>,'         & 
     151                         //' <dcmip2_mountain,dcmip2_schaer_noshear,dcmip2_schaer_shear>, <dcmip3>, <dcmip4>,'& 
     152                         //' <dcmip2016_baroclinic_wave>, <dcmip2016_cyclone>, <dcmip2016_supercell>' 
    145153         STOP 
    146154      END IF 
Note: See TracChangeset for help on using the changeset viewer.