- Timestamp:
- 2016-11-08T08:58:31+01:00 (7 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2015/dev_r5003_MERCATOR6_CRS/NEMOGCM/NEMO/OPA_SRC/CRS/crsfld.F90
r6786 r7204 169 169 170 170 CALL crs_dom_facvol( tmask, 'T', e1t, e2t, zfse3t, ocean_volume_crs_t, facvol_t ) 171 CALL iom_put(" ocean_volume_crs_t",ocean_volume_crs_t)171 CALL iom_put("cvol_crs_t",ocean_volume_crs_t) 172 172 ! 173 173 bt_crs(:,:,:) = ocean_volume_crs_t(:,:,:) * facvol_t(:,:,:)*tmask_crs(:,:,:)
Note: See TracChangeset
for help on using the changeset viewer.