Ignore:
Timestamp:
06/08/16 01:51:21 (8 years ago)
Author:
dubos
Message:

Introduced entropy as prognostic variable - tested with JW06

File:
1 edited

Legend:

Unmodified
Added
Removed

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

    r387 r401  
    3535    IF (is_master) PRINT *, 'caldyn_conserv=',def 
    3636 
     37    def='theta' 
     38    CALL getin('caldyn_thermo',def) 
     39    SELECT CASE(TRIM(def)) 
     40    CASE('theta') 
     41       caldyn_thermo=thermo_theta 
     42    CASE('entropy') 
     43       caldyn_thermo=thermo_entropy 
     44    CASE DEFAULT 
     45       IF (is_mpi_root) PRINT *,'Bad selector for variable caldyn_thermo : <', & 
     46            TRIM(def),'> options are <theta>, <entropy>' 
     47       STOP 
     48    END SELECT 
     49     
    3750    CALL allocate_caldyn 
    3851 
Note: See TracChangeset for help on using the changeset viewer.