- Timestamp:
- 2018-04-27T19:39:31+02:00 (6 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
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, &
Note: See TracChangeset
for help on using the changeset viewer.