Ignore:
Timestamp:
05/06/19 01:49:12 (5 years ago)
Author:
dubos
Message:

devel : towards Fortran driver for unstructured/LAM meshes

File:
1 edited

Legend:

Unmodified
Added
Removed

  • codes/icosagcm/devel/src/dissip/dissip_gcm.f90

    r845 r856  
    123123    CALL getin("niterdivgrad",niterdivgrad) 
    124124 
    125     CALL dissip_constants 
    126     CALL dissip_profile 
     125    IF(grid_type == grid_ico) THEN 
     126       CALL dissip_constants 
     127       CALL dissip_profile 
     128    END IF 
     129 
    127130  END SUBROUTINE init_dissip 
    128131 
Note: See TracChangeset for help on using the changeset viewer.