- Timestamp:
- 2015-05-29T10:34:05+02:00 (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2015/dev_r5204_CNRS_PISCES_dcy/NEMOGCM/NEMO/OPA_SRC/IOM/iom.F90
r5147 r5311 126 126 CALL set_grid( "V", glamv, gphiv ) 127 127 CALL set_grid( "W", glamt, gphit ) 128 CALL set_grid_znl( gphit ) 128 129 ENDIF 129 130 … … 135 136 CALL set_grid( "V", glamv_crs, gphiv_crs ) 136 137 CALL set_grid( "W", glamt_crs, gphit_crs ) 138 CALL set_grid_znl( gphit_crs ) 137 139 ! 138 140 CALL dom_grid_glo ! Return to parent grid domain … … 1253 1255 1254 1256 1257 SUBROUTINE set_grid_znl( plat ) 1258 !!---------------------------------------------------------------------- 1259 !! *** ROUTINE set_grid_znl *** 1260 !! 1261 !! ** Purpose : define grids for zonal mean 1262 !! 1263 !!---------------------------------------------------------------------- 1264 REAL(wp), DIMENSION(jpi,jpj), INTENT(in) :: plat 1265 ! 1266 REAL(wp), DIMENSION(:), ALLOCATABLE :: zlon 1267 INTEGER :: ni,nj, ix, iy 1268 1269 1270 ni=nlei-nldi+1 ; nj=nlej-nldj+1 1271 ALLOCATE( zlon(ni*nj) ) ; zlon(:) = 0. 1272 1273 CALL iom_set_domain_attr("gznl", ni_glo=jpiglo, nj_glo=jpjglo, ibegin=nimpp+nldi-1, jbegin=njmpp+nldj-1, ni=ni, nj=nj) 1274 CALL iom_set_domain_attr("gznl", data_dim=2, data_ibegin = 1-nldi, data_ni = jpi, data_jbegin = 1-nldj, data_nj = jpj) 1275 CALL iom_set_domain_attr("gznl", lonvalue = zlon, & 1276 & latvalue = RESHAPE(plat(nldi:nlei, nldj:nlej),(/ ni*nj /))) 1277 CALL dom_ngb( 180., 90., ix, iy, 'T' ) ! i-line that passes near the North Pole : Reference latitude (used in plots) 1278 CALL iom_set_domain_attr ('ptr', zoom_ibegin=ix, zoom_nj=jpjglo) 1279 CALL iom_update_file_name('ptr') 1280 ! 1281 END SUBROUTINE set_grid_znl 1282 1255 1283 SUBROUTINE set_scalar 1256 1284 !!---------------------------------------------------------------------- … … 1337 1365 CALL set_mooring( zlonpira, zlatpira ) 1338 1366 1339 ! diaptr : zonal mean1340 CALL dom_ngb( 180., 90., ix, iy, 'T' ) ! i-line that passes near the North Pole : Reference latitude (used in plots)1341 CALL iom_set_domain_attr ('ptr', zoom_ibegin=ix, zoom_nj=jpjglo)1342 CALL iom_update_file_name('ptr')1343 !1344 1367 1345 1368 END SUBROUTINE set_xmlatt
Note: See TracChangeset
for help on using the changeset viewer.