Changeset 394 for LMDZ.3.3/branches/rel-LF/libf/phylmd/oasis.F
- Timestamp:
- Jul 19, 2002, 11:58:18 AM (22 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ.3.3/branches/rel-LF/libf/phylmd/oasis.F
r177 r394 80 80 cl_writ(10)='CORUNCOA' 81 81 cl_writ(11)='CORIVFLU' 82 c$$$ cl_writ(12)='COZOTAUX' 83 c$$$ cl_writ(13)='COZOTAUV' 84 c$$$ cl_writ(14)='COMETAUY' 85 c$$$ cl_writ(15)='COMETAUU' 86 cl_writ(12)='COTAUXXU' 87 cl_writ(13)='COTAUYYU' 88 cl_writ(14)='COTAUZZU' 89 cl_writ(15)='COTAUXXV' 90 cl_writ(16)='COTAUYYV' 91 cl_writ(17)='COTAUZZV' 82 cl_writ(12)='COCALVIN' 83 c$$$ cl_writ(13)='COZOTAUX' 84 c$$$ cl_writ(14)='COZOTAUV' 85 c$$$ cl_writ(15)='COMETAUY' 86 c$$$ cl_writ(16)='COMETAUU' 87 cl_writ(13)='COTAUXXU' 88 cl_writ(14)='COTAUYYU' 89 cl_writ(15)='COTAUZZU' 90 cl_writ(16)='COTAUXXV' 91 cl_writ(17)='COTAUYYV' 92 cl_writ(18)='COTAUZZV' 92 93 c 93 94 c Define files name for fields exchanged from atmos to coupler, … … 111 112 cl_f_writ(16)='flxatmos' 112 113 cl_f_writ(17)='flxatmos' 114 cl_f_writ(18)='flxatmos' 113 115 114 116 c … … 199 201 CALL CLIM_Define (cl_read(jf), clim_in , clim_double, iparal 200 202 $ , info ) 203 WRITE(nuout,*) 'inicma : clim define done for ',jf 204 $ ,cl_read(jf) 201 205 END DO 202 206 c … … 206 210 CALL CLIM_Define (cl_writ(jf), clim_out , clim_double, 207 211 $ iparal, info ) 212 WRITE(nuout,*) 'inicma : clim define done for ',jf 213 $ ,cl_writ(jf) 208 214 END DO 209 215 c … … 301 307 c $Id$ 302 308 SUBROUTINE intocpl(kt, imjm, fsolice, fsolwat, fnsolice, fnsolwat, 303 $ fnsicedt, evice, evwat, lpre, spre, dirunoff, rivrunoff, 304 $ tauxx_u, tauyy_u, tauzz_u, tauxx_v, tauyy_v, tauzz_v,last) 309 $ fnsicedt, evice, evwat, lpre, spre, dirunoff, rivrunoff, 310 $ calving, tauxx_u, tauyy_u, tauzz_u, tauxx_v, tauyy_v, tauzz_v 311 $ , last) 305 312 c ====================================================================== 306 313 c S. Valcke (02/99) adapted From L.Z.X Li: this subroutine provides the … … 323 330 REAL dirunoff(imjm) 324 331 REAL rivrunoff(imjm) 332 REAL calving(imjm) 325 333 c$$$ REAL tauxu(imjm) 326 334 c$$$ REAL tauxv(imjm) … … 356 364 WRITE(nuout,*) ' ' 357 365 WRITE(nuout,*) 'Intocpl: sending fields to CPL, kt= ', kt 358 WRITE(nuout,*) ' ' 366 WRITE(nuout,*) 'last ', last 367 WRITE(nuout,*) 359 368 360 369 IF (last) THEN … … 404 413 DO jn=1, max_file 405 414 OPEN (file_unit(jn), FILE=file_name(jn), FORM='UNFORMATTED') 415 WRITE(*,*) 'Opening FILE ', file_unit(jn), ' ' 416 $ , file_name(jn) 417 REWIND(file_unit(jn)) 406 418 END DO 407 419 c … … 410 422 IF (jf.eq.1) 411 423 $ CALL locwrite(cl_writ(jf),fsolice, imjm, 412 $ file_unit_field(jf), ierror , nuout)424 $ file_unit_field(jf), ierror) 413 425 IF (jf.eq.2) 414 426 $ CALL locwrite(cl_writ(jf),fsolwat, imjm, 415 $ file_unit_field(jf), ierror , nuout)427 $ file_unit_field(jf), ierror) 416 428 IF (jf.eq.3) 417 429 $ CALL locwrite(cl_writ(jf),fnsolice, imjm, 418 $ file_unit_field(jf), ierror , nuout)430 $ file_unit_field(jf), ierror) 419 431 IF (jf.eq.4) 420 432 $ CALL locwrite(cl_writ(jf),fnsolwat, imjm, 421 $ file_unit_field(jf), ierror , nuout)433 $ file_unit_field(jf), ierror) 422 434 IF (jf.eq.5) 423 435 $ CALL locwrite(cl_writ(jf),fnsicedt, imjm, 424 $ file_unit_field(jf), ierror , nuout)436 $ file_unit_field(jf), ierror) 425 437 c IF (jf.eq.6) 426 438 c $ CALL locwrite(cl_writ(jf),ictemp, imjm, 427 c $ file_unit_field(jf), ierror , nuout)439 c $ file_unit_field(jf), ierror) 428 440 IF (jf.eq.6) 429 441 $ CALL locwrite(cl_writ(jf),evice, imjm, 430 $ file_unit_field(jf), ierror , nuout)442 $ file_unit_field(jf), ierror) 431 443 IF (jf.eq.7) 432 444 $ CALL locwrite(cl_writ(jf),evwat, imjm, 433 $ file_unit_field(jf), ierror , nuout)445 $ file_unit_field(jf), ierror) 434 446 IF (jf.eq.8) 435 447 $ CALL locwrite(cl_writ(jf),lpre, imjm, 436 $ file_unit_field(jf), ierror , nuout)448 $ file_unit_field(jf), ierror) 437 449 IF (jf.eq.9) 438 450 $ CALL locwrite(cl_writ(jf),spre, imjm, 439 $ file_unit_field(jf), ierror , nuout)451 $ file_unit_field(jf), ierror) 440 452 IF (jf.eq.10) 441 453 $ CALL locwrite(cl_writ(jf),dirunoff, imjm, 442 $ file_unit_field(jf), ierror , nuout)454 $ file_unit_field(jf), ierror) 443 455 IF (jf.eq.11) 444 456 $ CALL locwrite(cl_writ(jf),rivrunoff, imjm, 445 $ file_unit_field(jf), ierror, nuout) 446 c$$$ IF (jf.eq.12) 457 $ file_unit_field(jf), ierror) 458 IF (jf.eq.12) 459 $ CALL locwrite(cl_writ(jf),calving, imjm, 460 $ file_unit_field(jf), ierror) 461 c$$$ IF (jf.eq.13) 447 462 c$$$ $ CALL locwrite(cl_writ(jf),tauxu, imjm, 448 c$$$ $ file_unit_field(jf),ierror , nuout)449 c$$$ IF (jf.eq.1 3)463 c$$$ $ file_unit_field(jf),ierror) 464 c$$$ IF (jf.eq.1') 450 465 c$$$ $ CALL locwrite(cl_writ(jf),tauxv, imjm, 451 c$$$ $ file_unit_field(jf),ierror , nuout)452 c$$$ IF (jf.eq.1 4)466 c$$$ $ file_unit_field(jf),ierror) 467 c$$$ IF (jf.eq.15) 453 468 c$$$ $ CALL locwrite(cl_writ(jf),tauyv, imjm, 454 c$$$ $ file_unit_field(jf),ierror , nuout)455 c$$$ IF (jf.eq.1 5)469 c$$$ $ file_unit_field(jf),ierror) 470 c$$$ IF (jf.eq.16) 456 471 c$$$ $ CALL locwrite(cl_writ(jf),tauyu, imjm, 457 c$$$ $ file_unit_field(jf), ierror , nuout)458 IF (jf.eq.1 2)472 c$$$ $ file_unit_field(jf), ierror) 473 IF (jf.eq.13) 459 474 $ CALL locwrite(cl_writ(jf),tauxx_u, imjm, 460 475 $ file_unit_field(jf),ierror) 461 IF (jf.eq.1 3)476 IF (jf.eq.14) 462 477 $ CALL locwrite(cl_writ(jf),tauyy_u, imjm, 463 478 $ file_unit_field(jf),ierror) 464 IF (jf.eq.1 4)479 IF (jf.eq.15) 465 480 $ CALL locwrite(cl_writ(jf),tauzz_u, imjm, 466 481 $ file_unit_field(jf),ierror) 467 IF (jf.eq.1 5)482 IF (jf.eq.16) 468 483 $ CALL locwrite(cl_writ(jf),tauxx_v, imjm, 469 484 $ file_unit_field(jf),ierror) 470 IF (jf.eq.1 6)485 IF (jf.eq.17) 471 486 $ CALL locwrite(cl_writ(jf),tauyy_v, imjm, 472 487 $ file_unit_field(jf),ierror) 473 IF (jf.eq.1 7)488 IF (jf.eq.18) 474 489 $ CALL locwrite(cl_writ(jf),tauzz_v, imjm, 475 490 $ file_unit_field(jf),ierror) … … 515 530 IF (jn.eq.10) CALL CLIM_Export(cl_writ(jn),kt,dirunoff, info) 516 531 IF (jn.eq.11) CALL CLIM_Export(cl_writ(jn),kt,rivrunoff,info) 517 c$$$ IF (jn.eq.12) CALL CLIM_Export(cl_writ(jn), kt, tauxu, info) 518 c$$$ IF (jn.eq.13) CALL CLIM_Export(cl_writ(jn), kt, tauxv, info) 519 c$$$ IF (jn.eq.14) CALL CLIM_Export(cl_writ(jn), kt, tauyv, info) 520 c$$$ IF (jn.eq.15) CALL CLIM_Export(cl_writ(jn), kt, tauyu, info) 521 IF (jn.eq.12) CALL CLIM_Export(cl_writ(jn), kt, tauxx_u, info) 522 IF (jn.eq.13) CALL CLIM_Export(cl_writ(jn), kt, tauyy_u, info) 523 IF (jn.eq.14) CALL CLIM_Export(cl_writ(jn), kt, tauzz_u, info) 524 IF (jn.eq.15) CALL CLIM_Export(cl_writ(jn), kt, tauxx_v, info) 525 IF (jn.eq.16) CALL CLIM_Export(cl_writ(jn), kt, tauyy_v, info) 526 IF (jn.eq.17) CALL CLIM_Export(cl_writ(jn), kt, tauzz_v, info) 532 IF (jn.eq.12) CALL CLIM_Export(cl_writ(jn),kt,calving,info) 533 c$$$ IF (jn.eq.13) CALL CLIM_Export(cl_writ(jn), kt, tauxu, info) 534 c$$$ IF (jn.eq.14) CALL CLIM_Export(cl_writ(jn), kt, tauxv, info) 535 c$$$ IF (jn.eq.15) CALL CLIM_Export(cl_writ(jn), kt, tauyv, info) 536 c$$$ IF (jn.eq.16) CALL CLIM_Export(cl_writ(jn), kt, tauyu, info) 537 IF (jn.eq.13) CALL CLIM_Export(cl_writ(jn), kt, tauxx_u, info) 538 IF (jn.eq.14) CALL CLIM_Export(cl_writ(jn), kt, tauyy_u, info) 539 IF (jn.eq.15) CALL CLIM_Export(cl_writ(jn), kt, tauzz_u, info) 540 IF (jn.eq.16) CALL CLIM_Export(cl_writ(jn), kt, tauxx_v, info) 541 IF (jn.eq.17) CALL CLIM_Export(cl_writ(jn), kt, tauyy_v, info) 542 IF (jn.eq.18) CALL CLIM_Export(cl_writ(jn), kt, tauzz_v, info) 527 543 528 544 IF (info .NE. CLIM_Ok) THEN
Note: See TracChangeset
for help on using the changeset viewer.