Changeset 6041 for branches/2015/dev_r5776_UKMO2_OBS_efficiency_improvs/NEMOGCM/NEMO/OPA_SRC/IOM/iom.F90
- Timestamp:
- 2015-12-14T10:06:06+01:00 (8 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2015/dev_r5776_UKMO2_OBS_efficiency_improvs/NEMOGCM/NEMO/OPA_SRC/IOM/iom.F90
r5656 r6041 129 129 ! 130 130 IF( ln_cfmeta ) THEN ! Add additional grid metadata 131 CALL iom_set_domain_attr("grid_T", area = e1 2t(nldi:nlei, nldj:nlej))132 CALL iom_set_domain_attr("grid_U", area = e1 2u(nldi:nlei, nldj:nlej))133 CALL iom_set_domain_attr("grid_V", area = e1 2v(nldi:nlei, nldj:nlej))134 CALL iom_set_domain_attr("grid_W", area = e1 2t(nldi:nlei, nldj:nlej))131 CALL iom_set_domain_attr("grid_T", area = e1e2t(nldi:nlei, nldj:nlej)) 132 CALL iom_set_domain_attr("grid_U", area = e1e2u(nldi:nlei, nldj:nlej)) 133 CALL iom_set_domain_attr("grid_V", area = e1e2v(nldi:nlei, nldj:nlej)) 134 CALL iom_set_domain_attr("grid_W", area = e1e2t(nldi:nlei, nldj:nlej)) 135 135 CALL set_grid_bounds( "T", glamf, gphif, glamt, gphit ) 136 136 CALL set_grid_bounds( "U", glamv, gphiv, glamu, gphiu ) … … 903 903 IF( zofs /= 0. ) pv_r1d(:) = pv_r1d(:) + zofs 904 904 ELSEIF( PRESENT(pv_r2d) ) THEN 905 !CDIR COLLAPSE906 905 IF( zscf /= 1.) pv_r2d(:,:) = pv_r2d(:,:) * zscf 907 !CDIR COLLAPSE908 906 IF( zofs /= 0.) pv_r2d(:,:) = pv_r2d(:,:) + zofs 909 907 ELSEIF( PRESENT(pv_r3d) ) THEN 910 !CDIR COLLAPSE911 908 IF( zscf /= 1.) pv_r3d(:,:,:) = pv_r3d(:,:,:) * zscf 912 !CDIR COLLAPSE913 909 IF( zofs /= 0.) pv_r3d(:,:,:) = pv_r3d(:,:,:) + zofs 914 910 ENDIF
Note: See TracChangeset
for help on using the changeset viewer.