Ignore:
Timestamp:
06/08/16 23:24:41 (8 years ago)
Author:
dubos
Message:

Introduced fake_moist mode

File:
1 edited

Legend:

Unmodified
Added
Removed

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

    r401 r406  
    4040    CASE('theta') 
    4141       caldyn_thermo=thermo_theta 
     42       physics_thermo=thermo_dry 
    4243    CASE('entropy') 
    4344       caldyn_thermo=thermo_entropy 
     45       physics_thermo=thermo_dry 
     46    CASE('theta_fake_moist') 
     47       caldyn_thermo=thermo_theta 
     48       physics_thermo=thermo_fake_moist 
     49    CASE('entropy_fake_moist') 
     50       caldyn_thermo=thermo_entropy 
     51       physics_thermo=thermo_fake_moist 
     52    CASE('moist') 
     53       caldyn_thermo=thermo_moist 
     54       physics_thermo=thermo_moist 
    4455    CASE DEFAULT 
    4556       IF (is_mpi_root) PRINT *,'Bad selector for variable caldyn_thermo : <', & 
Note: See TracChangeset for help on using the changeset viewer.