- Timestamp:
- 2012-12-14T13:28:37+01:00 (11 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2013/dev_r3411_CNRS4_IOCRS/NEMOGCM/NEMO/OPA_SRC/CRS/crs_iom.F90
r3622 r3738 81 81 82 82 83 !! Save the parent grid information 84 jpi_full = jpi 85 jpj_full = jpj 86 jpim1_full = jpim1 87 jpjm1_full = jpjm1 88 nperio_full = nperio 89 90 npolj_full = npolj 91 jpnij_full = jpnij 92 narea_full = narea 93 npiglo_full = jpiglo 94 npjglo_full = jpjglo 95 96 nlcj_full = nlcj 97 nlci_full = nlci 98 nldi_full = nldi 99 nlei_full = nlei 100 nlej_full = nlej 101 nldj_full = nldj 102 103 !! Switch to coarse grid domain 104 jpi = jpi_crs 105 jpj = jpj_crs 106 jpim1 = jpi_crsm1 107 jpjm1 = jpj_crsm1 108 nperio = nperio_crs 109 110 npolj = npolj_crs 111 jpnij = jpnij_crs 112 narea = narea_crs 113 npiglo = jpiglo_crs 114 npjglo = jpjglo_crs 115 116 nlci = nlci_crs 117 nlcj = nlcj_crs 118 nldi = nldi_crs 119 nlei = nlei_crs 120 nlej = nlej_crs 121 122 nldj = nldj_crs 123 83 CALL dom_grid_crs ! Save the parent grid information & Switch to coarse grid domain 124 84 125 85 llnoov = (jpni * jpnj ) == jpnij .AND. .NOT. lk_agrif … … 135 95 WRITE(numout,*) 'crs_iom_open. after iom_open call kiomid=', kiomid 136 96 137 !! Return to parent grid domain 138 jpi = jpi_full 139 jpj = jpj_full 140 jpim1 = jpim1_full 141 jpjm1 = jpjm1_full 142 nperio = nperio_full 143 144 npolj = npolj_full 145 jpnij = jpnij_full 146 narea = narea_full 147 npiglo = npiglo_full 148 npjglo = npjglo_full 149 150 nlcj = nlcj_full 151 nlci = nlci_full 152 nldi = nldi_full 153 nlei = nlei_full 154 nlej = nlej_full 155 156 nldj = nldj_full 97 CALL dom_grid_glo ! Return to parent grid domain 157 98 158 99 END SUBROUTINE crs_iom_open … … 201 142 INTEGER :: itype ! variable type 202 143 203 !! Save the parent grid information 204 jpi_full = jpi 205 jpj_full = jpj 206 jpim1_full = jpim1 207 jpjm1_full = jpjm1 208 nperio_full = nperio 209 210 npolj_full = npolj 211 jpnij_full = jpnij 212 narea_full = narea 213 npiglo_full = jpiglo 214 npjglo_full = jpjglo 215 216 nlcj_full = nlcj 217 nlci_full = nlci 218 nldi_full = nldi 219 nlei_full = nlei 220 nlej_full = nlej 221 nldj_full = nldj 222 223 !! Switch to coarse grid domain 224 jpi = jpi_crs 225 jpj = jpj_crs 226 jpim1 = jpi_crsm1 227 jpjm1 = jpj_crsm1 228 nperio = nperio_crs 229 230 npolj = npolj_crs 231 jpnij = jpnij_crs 232 narea = narea_crs 233 npiglo = jpiglo_crs 234 npjglo = jpjglo_crs 235 236 nlcj = nlcj_crs 237 nlci = nlci_crs 238 nldi = nldi_crs 239 nlei = nlei_crs 240 nlej = nlej_crs 241 nldj = nldj_crs 242 144 CALL dom_grid_crs ! Save the parent grid information & Switch to coarse grid domain 243 145 244 146 IF( PRESENT(pv_r0d) ) THEN ; CALL iom_rstput( kt, kwrite, kiomid, cdvar, pv_r0d, ktype ) … … 248 150 ENDIF 249 151 250 !! Return to parent grid domain 251 jpi = jpi_full 252 jpj = jpj_full 253 jpim1 = jpim1_full 254 jpjm1 = jpjm1_full 255 nperio = nperio_full 256 257 npolj = npolj_full 258 jpnij = jpnij_full 259 narea = narea_full 260 npiglo = npiglo_full 261 npjglo = npjglo_full 262 263 nlcj = nlcj_full 264 nlci = nlci_full 265 nldi = nldi_full 266 nlei = nlei_full 267 nlej = nlej_full 268 nldj = nldj_full 269 152 CALL dom_grid_glo ! Return to parent grid domain 270 153 271 154 END SUBROUTINE crs_iom_rstput … … 288 171 INTEGER :: itype ! variable type 289 172 290 !! Save the parent grid information 291 jpi_full = jpi 292 jpj_full = jpj 293 jpim1_full = jpim1 294 jpjm1_full = jpjm1 295 nperio_full = nperio 296 297 npolj_full = npolj 298 jpnij_full = jpnij 299 narea_full = narea 300 npiglo_full = jpiglo 301 npjglo_full = jpjglo 302 303 nlcj_full = nlcj 304 nlci_full = nlci 305 nldi_full = nldi 306 nlei_full = nlei 307 nlej_full = nlej 308 nldj_full = nldj 309 310 !! Switch to coarse grid domain 311 jpi = jpi_crs 312 jpj = jpj_crs 313 jpim1 = jpi_crsm1 314 jpjm1 = jpj_crsm1 315 nperio = nperio_crs 316 317 npolj = npolj_crs 318 jpnij = jpnij_crs 319 narea = narea_crs 320 npiglo = jpiglo_crs 321 npjglo = jpjglo_crs 322 323 nlcj = nlcj_crs 324 nlci = nlci_crs 325 nldi = nldi_crs 326 nlei = nlei_crs 327 nlej = nlej_crs 328 nldj = nldj_crs 173 CALL dom_grid_crs ! Save the parent grid information & Switch to coarse grid domain 329 174 330 175 ! variable definition … … 335 180 ENDIF 336 181 337 !! Return to parent grid domain 338 jpi = jpi_full 339 jpj = jpj_full 340 jpim1 = jpim1_full 341 jpjm1 = jpjm1_full 342 nperio = nperio_full 343 344 npolj = npolj_full 345 jpnij = jpnij_full 346 narea = narea_full 347 npiglo = npiglo_full 348 npjglo = npjglo_full 349 350 nlcj = nlcj_full 351 nlci = nlci_full 352 nldi = nldi_full 353 nlei = nlei_full 354 nlej = nlej_full 355 nldj = nldj_full 182 CALL dom_grid_glo ! Return to parent grid domain 356 183 357 184 END SUBROUTINE crs_iom_put 358 185 359 !#if defined key_iomput360 361 !#endif362 363 186 END MODULE crs_iom
Note: See TracChangeset
for help on using the changeset viewer.