Changeset 1012


Ignore:
Timestamp:
02/28/20 09:52:04 (4 years ago)
Author:
ymipsl
Message:

fix : read_metric variable was not initialized before calling getin, so no specific default value was considered.
YM

File:
1 edited

Legend:

Unmodified
Added
Removed

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

    r887 r1012  
    11MODULE read_metric_mod 
    22 
     3   
    34CONTAINS 
    45 
    … …  
    89  USE xios_mod 
    910  USE omp_para 
     11  USE checksum_mod 
    1012  IMPLICIT NONE 
    1113    TYPE(t_field),POINTER,SAVE :: f_xcell(:),f_ycell(:),f_zcell(:) 
    … …  
    1416    INTEGER :: ind,i,j,n 
    1517    CHARACTER(len=255) :: etat0_type 
    16     LOGICAL :: read_metric_ 
     18    LOGICAL :: read_metric_=.FALSE. 
    1719     
    1820    CALL getin('etat0',etat0_type) 
Note: See TracChangeset for help on using the changeset viewer.