Ignore:
Timestamp:
06/17/19 12:13:33 (5 years ago)
Author:
dubos
Message:

devel : cosmetic changes to comply with XCodeML

Location:
codes/icosagcm/devel/src/dynamics
Files:
2 edited

Legend:

Unmodified
Added
Removed

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

    r572 r912  
    11MODULE caldyn_mod 
    22  USE icosa 
     3  IMPLICIT NONE 
    34  PRIVATE 
    45  SAVE 
    5   CHARACTER(LEN=255),SAVE :: caldyn_type 
     6  CHARACTER(LEN=255) :: caldyn_type 
    67!$OMP THREADPRIVATE(caldyn_type) 
    78  
    8   PUBLIC init_caldyn, caldyn, caldyn_BC, dysl 
     9  PUBLIC init_caldyn, caldyn, caldyn_BC 
    910   
    1011CONTAINS 
    1112 
    1213  SUBROUTINE init_caldyn 
    13   USE icosa 
    14   USE caldyn_gcm_mod, ONLY : init_caldyn_gcm=>init_caldyn 
    15   USE caldyn_adv_mod, ONLY : init_caldyn_adv=>init_caldyn 
    16   IMPLICIT NONE 
     14    USE caldyn_gcm_mod, ONLY : init_caldyn_gcm=>init_caldyn 
     15    USE caldyn_adv_mod, ONLY : init_caldyn_adv=>init_caldyn 
    1716   
    1817    caldyn_type="gcm" 

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

    r884 r912  
    1010CONTAINS 
    1111 
    12   SUBROUTINE check_interface 
    13     USE compute_caldyn_mod 
    14     compute_pvort_only => compute_pvort_only_unst 
    15     compute_pvort_only => compute_pvort_only_hex 
    16   END SUBROUTINE check_interface 
    17    
    1812#if BEGIN_DYSL 
    1913 
Note: See TracChangeset for help on using the changeset viewer.