- Timestamp:
- 2020-11-27T17:26:33+01:00 (4 years ago)
- Location:
- NEMO/branches/2020/tickets_icb_1900
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2020/tickets_icb_1900
- Property svn:externals
-
NEMO/branches/2020/tickets_icb_1900/src/OCE/OBS/obs_grid.F90
r12933 r13899 129 129 IF ( cdgrid == 'T' ) THEN 130 130 CALL obs_grd_bruteforce( jpi, jpj, jpiglo, jpjglo, & 131 & 1, nlci, 1, nlcj,&131 & 1, jpi, 1, jpj, & 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 & 1, nlci, 1, nlcj,&138 & 1, jpi, 1, jpj, & 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 & 1, nlci, 1, nlcj,&145 & 1, jpi, 1, jpj, & 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 & 1, nlci, 1, nlcj,&152 & 1, jpi, 1, jpj, & 153 153 & nproc, jpnij, & 154 154 & glamf, gphif, fmask, & … … 279 279 zmskg(:,:) = -1.e+10 280 280 ! Add various grids here. 281 DO jj = 1, nlcj282 DO ji = 1, nlci281 DO jj = 1, jpj 282 DO ji = 1, jpi 283 283 zlamg(mig(ji),mjg(jj)) = glamt(ji,jj) 284 284 zphig(mig(ji),mjg(jj)) = gphit(ji,jj) … … 819 819 820 820 CALL obs_grd_bruteforce( jpi, jpj, jpiglo, jpjglo, & 821 & 1, nlci, 1, nlcj,&821 & 1, jpi, 1, jpj, & 822 822 & nproc, jpnij, & 823 823 & glamt, gphit, tmask, &
Note: See TracChangeset
for help on using the changeset viewer.