Ignore:
Timestamp:
06/14/19 11:29:25 (5 years ago)
Author:
dubos
Message:

devel : safeguards when using caldyn_conserv=energy_gassmann

File:
1 edited

Legend:

Unmodified
Added
Removed

  • codes/icosagcm/devel/src/dynamics/caldyn_gcm.F90

    r906 r909  
    310310 
    311311    SELECT CASE(caldyn_conserv) 
    312     CASE(conserv_energy) ! energy-conserving 
     312    CASE(conserv_energy, conserv_gassmann) ! energy-conserving 
    313313       DO ind=1,ndomain 
    314314          IF (.NOT. assigned_domain(ind)) CYCLE 
    … …  
    401401        
    402402    CASE DEFAULT 
     403       PRINT *, 'Invalid value of caldyn_conserv : ', caldyn_conserv 
    403404       STOP 
    404405    END SELECT 
Note: See TracChangeset for help on using the changeset viewer.