Ignore:
Timestamp:
10/12/17 19:08:46 (7 years ago)
Author:
dubos
Message:

devel : Move some GETIN where they belong

File:
1 edited

Legend:

Unmodified
Added
Removed

  • codes/icosagcm/devel/src/dynamics/caldyn.f90

    r562 r572  
    2929    END SELECT 
    3030         
    31     dysl=.FALSE. 
    32     CALL getin("dysl",dysl) 
    33     dysl_geopot=dysl 
    34     CALL getin("dysl_geopot",dysl_geopot) 
    35     dysl_caldyn_fast=dysl 
    36     CALL getin("dysl_caldyn_fast",dysl_caldyn_fast) 
    37     dysl_slow_hydro=dysl 
    38     CALL getin("dysl_slow_hydro",dysl_slow_hydro) 
    39     dysl_pvort_only=dysl 
    40     CALL getin("dysl_pvort_only",dysl_pvort_only) 
    41     dysl_caldyn_coriolis=dysl 
    42     CALL getin("dysl_caldyn_coriolis",dysl_caldyn_coriolis) 
    43  
    4431  END SUBROUTINE init_caldyn 
    4532 
Note: See TracChangeset for help on using the changeset viewer.