- Timestamp:
- 02/28/20 09:52:04 (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
codes/icosagcm/trunk/src/read_metric.f90
r887 r1012 1 1 MODULE read_metric_mod 2 2 3 3 4 CONTAINS 4 5 … … 8 9 USE xios_mod 9 10 USE omp_para 11 USE checksum_mod 10 12 IMPLICIT NONE 11 13 TYPE(t_field),POINTER,SAVE :: f_xcell(:),f_ycell(:),f_zcell(:) … … 14 16 INTEGER :: ind,i,j,n 15 17 CHARACTER(len=255) :: etat0_type 16 LOGICAL :: read_metric_ 18 LOGICAL :: read_metric_=.FALSE. 17 19 18 20 CALL getin('etat0',etat0_type)
Note: See TracChangeset
for help on using the changeset viewer.