Changeset 1528 for trunk/NEMO/OPA_SRC/OBC/obcrst.F90
- Timestamp:
- 2009-07-23T16:38:47+02:00 (15 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMO/OPA_SRC/OBC/obcrst.F90
r1152 r1528 121 121 PRINT *,'Narea =',narea,' write jrec =2 east' 122 122 WRITE(inum,REC=jrec) & 123 # if defined key_dynspg_rl124 (( bebnd(jfoe, jb,jt), jb=1,3),jt=1,3), &125 # endif126 123 ((( uebnd(jfoe,jk,jb,jt),jk=1,jpk),jb=1,3),jt=1,3), & 127 124 ((( vebnd(jfoe,jk,jb,jt),jk=1,jpk),jb=1,3),jt=1,3), & … … 136 133 jrec = 2 + jj + njmpp -1 -jpjed 137 134 WRITE (inum,REC=jrec) & 138 # if defined key_dynspg_rl139 (( bebnd(jfoe, jb,jt), jb=1,3),jt=1,3), &140 # endif141 135 ((( uebnd(jfoe,jk,jb,jt),jk=1,jpk),jb=1,3),jt=1,3), & 142 136 ((( vebnd(jfoe,jk,jb,jt),jk=1,jpk),jb=1,3),jt=1,3), & … … 166 160 PRINT *,'Narea =',narea,' write jrec =',jrec,' west' 167 161 WRITE (inum,REC=jrec) & 168 # if defined key_dynspg_rl169 (( bwbnd(jfow, jb,jt), jb=1,3),jt=1,3), &170 # endif171 162 ((( uwbnd(jfow,jk,jb,jt),jk=1,jpk),jb=1,3),jt=1,3), & 172 163 ((( vwbnd(jfow,jk,jb,jt),jk=1,jpk),jb=1,3),jt=1,3), & … … 181 172 jrec = 3 + jpjef -jpjed + jj + njmpp -1 -jpjwd 182 173 WRITE (inum,REC=jrec) & 183 # if defined key_dynspg_rl184 (( bwbnd(jfow, jb,jt), jb=1,3),jt=1,3), &185 # endif186 174 ((( uwbnd(jfow,jk,jb,jt),jk=1,jpk),jb=1,3),jt=1,3), & 187 175 ((( vwbnd(jfow,jk,jb,jt),jk=1,jpk),jb=1,3),jt=1,3), & … … 210 198 ifon = jpind -nimpp +1 211 199 WRITE (inum,REC=jrec) & 212 # if defined key_dynspg_rl213 (( bnbnd(ifon, jb,jt), jb=1,3),jt=1,3), &214 # endif215 200 ((( unbnd(ifon,jk,jb,jt),jk=1,jpk),jb=1,3),jt=1,3), & 216 201 ((( vnbnd(ifon,jk,jb,jt),jk=1,jpk),jb=1,3),jt=1,3), & … … 225 210 jrec = 4 + jpjef -jpjed + jpjwf -jpjwd +ji + nimpp -1 -jpind 226 211 WRITE (inum,REC=jrec) & 227 # if defined key_dynspg_rl228 (( bnbnd(ifon, jb,jt), jb=1,3),jt=1,3), &229 # endif230 212 ((( unbnd(ifon,jk,jb,jt),jk=1,jpk),jb=1,3),jt=1,3), & 231 213 ((( vnbnd(ifon,jk,jb,jt),jk=1,jpk),jb=1,3),jt=1,3), & … … 255 237 ifos = jpisd -nimpp + 1 256 238 WRITE (inum,REC=jrec) & 257 # if defined key_dynspg_rl258 (( bsbnd(ifos, jb,jt), jb=1,3),jt=1,3), &259 # endif260 239 ((( usbnd(ifos,jk,jb,jt),jk=1,jpk),jb=1,3),jt=1,3), & 261 240 ((( vsbnd(ifos,jk,jb,jt),jk=1,jpk),jb=1,3),jt=1,3), & … … 271 250 ji + nimpp -1 -jpisd 272 251 WRITE (inum,REC=jrec) & 273 # if defined key_dynspg_rl274 (( bsbnd(ifos, jb,jt), jb=1,3),jt=1,3), &275 # endif276 252 ((( usbnd(ifos,jk,jb,jt),jk=1,jpk),jb=1,3),jt=1,3), & 277 253 ((( vsbnd(ifos,jk,jb,jt),jk=1,jpk),jb=1,3),jt=1,3), & … … 456 432 jfoe = jpjed -njmpp + 1 457 433 READ (inum,REC=jrec) & 458 # if defined key_dynspg_rl459 (( bebnd(jfoe, jb,jt), jb=1,3),jt=1,3), &460 # endif461 434 ((( uebnd(jfoe,jk,jb,jt),jk=1,jpk),jb=1,3),jt=1,3), & 462 435 ((( vebnd(jfoe,jk,jb,jt),jk=1,jpk),jb=1,3),jt=1,3), & … … 471 444 jrec = 2 + jj + njmpp -1 -jpjed 472 445 READ (inum,REC=jrec) & 473 # if defined key_dynspg_rl474 (( bebnd(jfoe, jb,jt), jb=1,3),jt=1,3), &475 # endif476 446 ((( uebnd(jfoe,jk,jb,jt),jk=1,jpk),jb=1,3),jt=1,3), & 477 447 ((( vebnd(jfoe,jk,jb,jt),jk=1,jpk),jb=1,3),jt=1,3), & … … 498 468 jfow = jpjwd -njmpp + 1 499 469 READ (inum,REC=jrec) & 500 # if defined key_dynspg_rl501 (( bwbnd(jfow, jb,jt), jb=1,3),jt=1,3), &502 # endif503 470 ((( uwbnd(jfow,jk,jb,jt),jk=1,jpk),jb=1,3),jt=1,3), & 504 471 ((( vwbnd(jfow,jk,jb,jt),jk=1,jpk),jb=1,3),jt=1,3), & … … 513 480 jrec = 3 + jpjef -jpjed + jj + njmpp -1 -jpjwd 514 481 READ (inum,REC=jrec) & 515 # if defined key_dynspg_rl516 (( bwbnd(jfow, jb,jt), jb=1,3),jt=1,3), &517 # endif518 482 ((( uwbnd(jfow,jk,jb,jt),jk=1,jpk),jb=1,3),jt=1,3), & 519 483 ((( vwbnd(jfow,jk,jb,jt),jk=1,jpk),jb=1,3),jt=1,3), & … … 540 504 ifon = jpind -nimpp +1 541 505 READ (inum,REC=jrec) & 542 # if defined key_dynspg_rl543 (( bnbnd(ifon, jb,jt), jb=1,3),jt=1,3), &544 # endif545 506 ((( unbnd(ifon,jk,jb,jt),jk=1,jpk),jb=1,3),jt=1,3), & 546 507 ((( vnbnd(ifon,jk,jb,jt),jk=1,jpk),jb=1,3),jt=1,3), & … … 555 516 jrec = 4 + jpjef -jpjed + jpjwf -jpjwd +ji + nimpp -1 -jpind 556 517 READ (inum,REC=jrec) & 557 # if defined key_dynspg_rl558 (( bnbnd(ifon, jb,jt), jb=1,3),jt=1,3), &559 # endif560 518 ((( unbnd(ifon,jk,jb,jt),jk=1,jpk),jb=1,3),jt=1,3), & 561 519 ((( vnbnd(ifon,jk,jb,jt),jk=1,jpk),jb=1,3),jt=1,3), & … … 582 540 ifos = jpisd -nimpp + 1 583 541 READ (inum,REC=jrec) & 584 # if defined key_dynspg_rl585 (( bsbnd(ifos, jb,jt), jb=1,3),jt=1,3), &586 # endif587 542 ((( usbnd(ifos,jk,jb,jt),jk=1,jpk),jb=1,3),jt=1,3), & 588 543 ((( vsbnd(ifos,jk,jb,jt),jk=1,jpk),jb=1,3),jt=1,3), & … … 598 553 ji + nimpp -1 -jpisd 599 554 READ (inum,REC=jrec) & 600 # if defined key_dynspg_rl601 (( bsbnd(ifos, jb,jt), jb=1,3),jt=1,3), &602 # endif603 555 ((( usbnd(ifos,jk,jb,jt),jk=1,jpk),jb=1,3),jt=1,3), & 604 556 ((( vsbnd(ifos,jk,jb,jt),jk=1,jpk),jb=1,3),jt=1,3), & … … 616 568 IF( lk_mpp ) THEN 617 569 IF( lp_obc_east ) THEN 618 # if defined key_dynspg_rl619 CALL mppobc(bebnd,jpjed,jpjef,jpieob,3*3,2,jpj)620 # endif621 570 CALL mppobc(uebnd,jpjed,jpjef,jpieob,jpk*3*3,2,jpj) 622 571 CALL mppobc(vebnd,jpjed,jpjef,jpieob+1,jpk*3*3,2,jpj) … … 625 574 ENDIF 626 575 IF( lp_obc_west ) THEN 627 # if defined key_dynspg_rl628 CALL mppobc(bwbnd,jpjwd,jpjwf,jpiwob,3*3,2,jpj)629 # endif630 576 CALL mppobc(uwbnd,jpjwd,jpjwf,jpiwob,jpk*3*3,2,jpj) 631 577 CALL mppobc(vwbnd,jpjwd,jpjwf,jpiwob,jpk*3*3,2,jpj) … … 634 580 ENDIF 635 581 IF( lp_obc_north ) THEN 636 # if defined key_dynspg_rl637 CALL mppobc(bnbnd,jpind,jpinf,jpjnob ,3*3 ,1,jpi)638 # endif639 582 CALL mppobc(unbnd,jpind,jpinf,jpjnob+1,jpk*3*3,1,jpi) 640 583 CALL mppobc(vnbnd,jpind,jpinf,jpjnob ,jpk*3*3,1,jpi) … … 643 586 ENDIF 644 587 IF( lp_obc_south ) THEN 645 # if defined key_dynspg_rl646 CALL mppobc(bsbnd,jpisd,jpisf,jpjsob, 3*3,1,jpi)647 # endif648 588 CALL mppobc(usbnd,jpisd,jpisf,jpjsob,jpk*3*3,1,jpi) 649 589 CALL mppobc(vsbnd,jpisd,jpisf,jpjsob,jpk*3*3,1,jpi)
Note: See TracChangeset
for help on using the changeset viewer.