Changeset 9523 for branches/2017/dev_merge_2017
- Timestamp:
- 2018-04-27T19:39:31+02:00 (6 years ago)
- Location:
- branches/2017/dev_merge_2017/NEMOGCM/NEMO/OPA_SRC/OBS
- Files:
-
- 3 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2017/dev_merge_2017/NEMOGCM/NEMO/OPA_SRC/OBS/mpp_map.F90
r4245 r9523 12 12 USE par_kind, ONLY : wp ! Precision variables 13 13 USE par_oce , ONLY : jpi, jpj ! Ocean parameters 14 USE dom_oce , ONLY : mig, mjg, nldi, nlei, nldj, nlej, n area ! Ocean space and time domain variables14 USE dom_oce , ONLY : mig, mjg, nldi, nlei, nldj, nlej, nlci, nlcj, narea ! Ocean space and time domain variables 15 15 #if defined key_mpp_mpi 16 16 USE lib_mpp, ONLY : mpi_comm_opa ! MPP library … … 64 64 imppmap(:,:) = 0 65 65 66 ! Setup local grid points67 imppmap(mig( nldi):mig(nlei),mjg(nldj):mjg(nlej)) = narea66 ! ! Setup local grid points 67 imppmap(mig(1):mig(nlci),mjg(1):mjg(nlcj)) = narea 68 68 69 69 ! Get global data -
branches/2017/dev_merge_2017/NEMOGCM/NEMO/OPA_SRC/OBS/obs_grid.F90
r6140 r9523 129 129 IF ( cdgrid == 'T' ) THEN 130 130 CALL obs_grd_bruteforce( jpi, jpj, jpiglo, jpjglo, & 131 & nldi, nlei,nldj, nlej,&131 & 1, nlci, 1, nlcj, & 132 132 & nproc, jpnij, & 133 133 & glamt, gphit, tmask, & … … 136 136 ELSEIF ( cdgrid == 'U' ) THEN 137 137 CALL obs_grd_bruteforce( jpi, jpj, jpiglo, jpjglo, & 138 & nldi, nlei,nldj, nlej,&138 & 1, nlci, 1, nlcj, & 139 139 & nproc, jpnij, & 140 140 & glamu, gphiu, umask, & … … 143 143 ELSEIF ( cdgrid == 'V' ) THEN 144 144 CALL obs_grd_bruteforce( jpi, jpj, jpiglo, jpjglo, & 145 & nldi, nlei,nldj, nlej,&145 & 1, nlci, 1, nlcj, & 146 146 & nproc, jpnij, & 147 147 & glamv, gphiv, vmask, & … … 150 150 ELSEIF ( cdgrid == 'F' ) THEN 151 151 CALL obs_grd_bruteforce( jpi, jpj, jpiglo, jpjglo, & 152 & nldi, nlei,nldj, nlej,&152 & 1, nlci, 1, nlcj, & 153 153 & nproc, jpnij, & 154 154 & glamf, gphif, fmask, & … … 279 279 zmskg(:,:) = -1.e+10 280 280 ! Add various grids here. 281 DO jj = nldj, nlej282 DO ji = nldi, nlei281 DO jj = 1, nlcj 282 DO ji = 1, nlci 283 283 zlamg(mig(ji),mjg(jj)) = glamt(ji,jj) 284 284 zphig(mig(ji),mjg(jj)) = gphit(ji,jj) … … 816 816 817 817 CALL obs_grd_bruteforce( jpi, jpj, jpiglo, jpjglo, & 818 & nldi, nlei,nldj, nlej,&818 & 1, nlci, 1, nlcj, & 819 819 & nproc, jpnij, & 820 820 & glamt, gphit, tmask, & -
branches/2017/dev_merge_2017/NEMOGCM/NEMO/OPA_SRC/OBS/obs_inter_sup.F90
r9125 r9523 365 365 CALL ctl_stop( 'Error in obs_int_comm_3d_local', & 366 366 & 'Point outside local domain' ) 367 367 368 368 ENDIF 369 369
Note: See TracChangeset
for help on using the changeset viewer.