Changeset 394
- Timestamp:
- Jul 19, 2002, 11:58:18 AM (22 years ago)
- Location:
- LMDZ.3.3/branches/rel-LF/libf/phylmd
- Files:
-
- 4 edited
-
inc_cpl.h (modified) (1 diff)
-
interface_surf.F90 (modified) (4 diffs)
-
oasis.F (modified) (10 diffs)
-
oasis.true (modified) (8 diffs)
Legend:
- Unmodified
- Added
- Removed
-
LMDZ.3.3/branches/rel-LF/libf/phylmd/inc_cpl.h
r179 r394 17 17 PARAMETER (jpread=0, jpwrit=1) 18 18 CHARACTER*8 cl_writ(jpmaxfld), cl_read(jpmaxfld) 19 CHARACTER* 6cl_f_writ(jpmaxfld), cl_f_read(jpmaxfld)19 CHARACTER*8 cl_f_writ(jpmaxfld), cl_f_read(jpmaxfld) 20 20 COMMON / comcpl / cl_writ, cl_read, cl_f_writ, cl_f_read 21 21 ! ------------------------------------------------------------------- -
LMDZ.3.3/branches/rel-LF/libf/phylmd/interface_surf.F90
r366 r394 1151 1151 REAL, DIMENSION(iim, jjm+1) :: wri_evap_sea, wri_rcoa, wri_rriv 1152 1152 REAL, DIMENSION(iim, jjm+1) :: wri_rain, wri_snow, wri_taux, wri_tauy 1153 REAL, DIMENSION(iim, jjm+1) :: wri_calv 1153 1154 REAL, DIMENSION(iim, jjm+1) :: wri_tauxx, wri_tauyy, wri_tauzz 1154 1155 REAL, DIMENSION(iim, jjm+1) :: tmp_lon, tmp_lat … … 1506 1507 ! pour simuler la fonte des glaciers antarctiques 1507 1508 ! 1508 wri_rain = wri_rain &1509 & + coeff_iceberg * cte_flux_iceberg / (num_antarctic * surf_maille)1510 1509 !$$$ wri_rain = wri_rain & 1510 !$$$ & + coeff_iceberg * cte_flux_iceberg / (num_antarctic * surf_maille) 1511 wri_calv = coeff_iceberg * cte_flux_iceberg / (num_antarctic * surf_maille) 1511 1512 ! 1512 1513 ! on passe les coordonnées de la grille … … 1549 1550 CALL histwrite(nidct,cl_writ(10),itau_w,wri_rcoa,iim*(jjm+1),ndexct) 1550 1551 CALL histwrite(nidct,cl_writ(11),itau_w,wri_rriv,iim*(jjm+1),ndexct) 1551 CALL histwrite(nidct,cl_writ(12),itau_w,wri_tauxx,iim*(jjm+1),ndexct) 1552 CALL histwrite(nidct,cl_writ(13),itau_w,wri_tauyy,iim*(jjm+1),ndexct) 1553 CALL histwrite(nidct,cl_writ(14),itau_w,wri_tauzz,iim*(jjm+1),ndexct) 1554 CALL histwrite(nidct,cl_writ(15),itau_w,wri_tauxx,iim*(jjm+1),ndexct) 1555 CALL histwrite(nidct,cl_writ(16),itau_w,wri_tauyy,iim*(jjm+1),ndexct) 1556 CALL histwrite(nidct,cl_writ(17),itau_w,wri_tauzz,iim*(jjm+1),ndexct) 1552 CALL histwrite(nidct,cl_writ(12),itau_w,wri_calv,iim*(jjm+1),ndexct) 1553 CALL histwrite(nidct,cl_writ(13),itau_w,wri_tauxx,iim*(jjm+1),ndexct) 1554 CALL histwrite(nidct,cl_writ(14),itau_w,wri_tauyy,iim*(jjm+1),ndexct) 1555 CALL histwrite(nidct,cl_writ(15),itau_w,wri_tauzz,iim*(jjm+1),ndexct) 1556 CALL histwrite(nidct,cl_writ(16),itau_w,wri_tauxx,iim*(jjm+1),ndexct) 1557 CALL histwrite(nidct,cl_writ(17),itau_w,wri_tauyy,iim*(jjm+1),ndexct) 1558 CALL histwrite(nidct,cl_writ(18),itau_w,wri_tauzz,iim*(jjm+1),ndexct) 1557 1559 CALL histsync(nidct) 1558 1560 ! pas utile IF (lafin) CALL histclo(nidct) … … 1560 1562 call intocpl(itime, (jjm+1)*iim, wri_sol_ice, wri_sol_sea, wri_nsol_ice,& 1561 1563 & wri_nsol_sea, wri_fder_ice, wri_evap_ice, wri_evap_sea, wri_rain, & 1562 & wri_snow, wri_rcoa, wri_rriv, wri_ tauxx, wri_tauyy, wri_tauzz,&1563 & wri_tau xx, wri_tauyy, wri_tauzz,lafin )1564 & wri_snow, wri_rcoa, wri_rriv, wri_calv, wri_tauxx, wri_tauyy, & 1565 & wri_tauzz, wri_tauxx, wri_tauyy, wri_tauzz,lafin ) 1564 1566 ! 1565 1567 cpl_sols = 0.; cpl_nsol = 0.; cpl_rain = 0.; cpl_snow = 0. -
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 -
LMDZ.3.3/branches/rel-LF/libf/phylmd/oasis.true
r179 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 … … 305 307 c $Id$ 306 308 SUBROUTINE intocpl(kt, imjm, fsolice, fsolwat, fnsolice, fnsolwat, 307 $ fnsicedt, evice, evwat, lpre, spre, dirunoff, rivrunoff, 308 $ 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) 309 312 c ====================================================================== 310 313 c S. Valcke (02/99) adapted From L.Z.X Li: this subroutine provides the … … 327 330 REAL dirunoff(imjm) 328 331 REAL rivrunoff(imjm) 332 REAL calving(imjm) 329 333 c$$$ REAL tauxu(imjm) 330 334 c$$$ REAL tauxv(imjm) … … 360 364 WRITE(nuout,*) ' ' 361 365 WRITE(nuout,*) 'Intocpl: sending fields to CPL, kt= ', kt 362 WRITE(nuout,*) ' ' 366 WRITE(nuout,*) 'last ', last 367 WRITE(nuout,*) 363 368 364 369 IF (last) THEN … … 408 413 DO jn=1, max_file 409 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)) 410 418 END DO 411 419 c … … 448 456 $ CALL locwrite(cl_writ(jf),rivrunoff, imjm, 449 457 $ file_unit_field(jf), ierror) 450 c$$$ IF (jf.eq.12) 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) 451 462 c$$$ $ CALL locwrite(cl_writ(jf),tauxu, imjm, 452 463 c$$$ $ file_unit_field(jf),ierror) 453 c$$$ IF (jf.eq.1 3)464 c$$$ IF (jf.eq.1') 454 465 c$$$ $ CALL locwrite(cl_writ(jf),tauxv, imjm, 455 466 c$$$ $ file_unit_field(jf),ierror) 456 c$$$ IF (jf.eq.1 4)467 c$$$ IF (jf.eq.15) 457 468 c$$$ $ CALL locwrite(cl_writ(jf),tauyv, imjm, 458 469 c$$$ $ file_unit_field(jf),ierror) 459 c$$$ IF (jf.eq.1 5)470 c$$$ IF (jf.eq.16) 460 471 c$$$ $ CALL locwrite(cl_writ(jf),tauyu, imjm, 461 472 c$$$ $ file_unit_field(jf), ierror) 462 IF (jf.eq.1 2)473 IF (jf.eq.13) 463 474 $ CALL locwrite(cl_writ(jf),tauxx_u, imjm, 464 475 $ file_unit_field(jf),ierror) 465 IF (jf.eq.1 3)476 IF (jf.eq.14) 466 477 $ CALL locwrite(cl_writ(jf),tauyy_u, imjm, 467 478 $ file_unit_field(jf),ierror) 468 IF (jf.eq.1 4)479 IF (jf.eq.15) 469 480 $ CALL locwrite(cl_writ(jf),tauzz_u, imjm, 470 481 $ file_unit_field(jf),ierror) 471 IF (jf.eq.1 5)482 IF (jf.eq.16) 472 483 $ CALL locwrite(cl_writ(jf),tauxx_v, imjm, 473 484 $ file_unit_field(jf),ierror) 474 IF (jf.eq.1 6)485 IF (jf.eq.17) 475 486 $ CALL locwrite(cl_writ(jf),tauyy_v, imjm, 476 487 $ file_unit_field(jf),ierror) 477 IF (jf.eq.1 7)488 IF (jf.eq.18) 478 489 $ CALL locwrite(cl_writ(jf),tauzz_v, imjm, 479 490 $ file_unit_field(jf),ierror) … … 519 530 IF (jn.eq.10) CALL CLIM_Export(cl_writ(jn),kt,dirunoff, info) 520 531 IF (jn.eq.11) CALL CLIM_Export(cl_writ(jn),kt,rivrunoff,info) 521 c$$$ IF (jn.eq.12) CALL CLIM_Export(cl_writ(jn), kt, tauxu, info) 522 c$$$ IF (jn.eq.13) CALL CLIM_Export(cl_writ(jn), kt, tauxv, info) 523 c$$$ IF (jn.eq.14) CALL CLIM_Export(cl_writ(jn), kt, tauyv, info) 524 c$$$ IF (jn.eq.15) CALL CLIM_Export(cl_writ(jn), kt, tauyu, info) 525 IF (jn.eq.12) CALL CLIM_Export(cl_writ(jn), kt, tauxx_u, info) 526 IF (jn.eq.13) CALL CLIM_Export(cl_writ(jn), kt, tauyy_u, info) 527 IF (jn.eq.14) CALL CLIM_Export(cl_writ(jn), kt, tauzz_u, info) 528 IF (jn.eq.15) CALL CLIM_Export(cl_writ(jn), kt, tauxx_v, info) 529 IF (jn.eq.16) CALL CLIM_Export(cl_writ(jn), kt, tauyy_v, info) 530 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) 531 543 532 544 IF (info .NE. CLIM_Ok) THEN
Note: See TracChangeset
for help on using the changeset viewer.
