Changeset 963 for codes/icosagcm/trunk/src/sphere/geometry.f90
- Timestamp:
- 07/25/19 11:36:36 (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
codes/icosagcm/trunk/src/sphere/geometry.f90
r953 r963 360 360 USE dimensions 361 361 USE domain_mod 362 USE transfert_m pi_mod362 USE transfert_mod 363 363 364 364 INTEGER :: ind,i,j,k,n … … 384 384 CALL allocate_field_glo(xyz_glo, field_t, type_real, 3) 385 385 CALL allocate_field_glo(vertex_glo, field_z, type_real, 3) 386 386 387 387 388 CALL gather_field(xyz_loc, xyz_glo)
Note: See TracChangeset
for help on using the changeset viewer.