Changeset 394 for LMDZ.3.3/branches


Ignore:
Timestamp:
Jul 19, 2002, 11:58:18 AM (22 years ago)
Author:
lmdzadmin
Message:

Phasage avec les sources d'OM: rajout calving + character*8 sur les noms
LF

Location:
LMDZ.3.3/branches/rel-LF/libf/phylmd
Files:
4 edited

Legend:

Unmodified
Added
Removed
  • LMDZ.3.3/branches/rel-LF/libf/phylmd/inc_cpl.h

    r179 r394  
    1717      PARAMETER (jpread=0, jpwrit=1)
    1818      CHARACTER*8 cl_writ(jpmaxfld), cl_read(jpmaxfld)
    19       CHARACTER*6 cl_f_writ(jpmaxfld), cl_f_read(jpmaxfld)
     19      CHARACTER*8 cl_f_writ(jpmaxfld), cl_f_read(jpmaxfld)
    2020      COMMON / comcpl / cl_writ, cl_read, cl_f_writ, cl_f_read
    2121!     -------------------------------------------------------------------
  • LMDZ.3.3/branches/rel-LF/libf/phylmd/interface_surf.F90

    r366 r394  
    11511151  REAL, DIMENSION(iim, jjm+1) :: wri_evap_sea, wri_rcoa, wri_rriv
    11521152  REAL, DIMENSION(iim, jjm+1) :: wri_rain, wri_snow, wri_taux, wri_tauy
     1153  REAL, DIMENSION(iim, jjm+1) :: wri_calv
    11531154  REAL, DIMENSION(iim, jjm+1) :: wri_tauxx, wri_tauyy, wri_tauzz
    11541155  REAL, DIMENSION(iim, jjm+1) :: tmp_lon, tmp_lat
     
    15061507! pour simuler la fonte des glaciers antarctiques
    15071508!
    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)
    15111512!
    15121513! on passe les coordonnées de la grille
     
    15491550      CALL histwrite(nidct,cl_writ(10),itau_w,wri_rcoa,iim*(jjm+1),ndexct)
    15501551      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)
    15571559      CALL histsync(nidct)
    15581560! pas utile      IF (lafin) CALL histclo(nidct)
     
    15601562      call intocpl(itime, (jjm+1)*iim, wri_sol_ice, wri_sol_sea, wri_nsol_ice,&
    15611563      & 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_tauxx, 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 )
    15641566!
    15651567      cpl_sols = 0.; cpl_nsol = 0.; cpl_rain = 0.; cpl_snow = 0.
  • LMDZ.3.3/branches/rel-LF/libf/phylmd/oasis.F

    r177 r394  
    8080      cl_writ(10)='CORUNCOA'
    8181      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'
     83c$$$      cl_writ(13)='COZOTAUX'
     84c$$$      cl_writ(14)='COZOTAUV'
     85c$$$      cl_writ(15)='COMETAUY'
     86c$$$      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'
    9293c
    9394c     Define files name for fields exchanged from atmos to coupler,
     
    111112      cl_f_writ(16)='flxatmos'
    112113      cl_f_writ(17)='flxatmos'
     114      cl_f_writ(18)='flxatmos'
    113115
    114116c
     
    199201            CALL CLIM_Define (cl_read(jf), clim_in , clim_double, iparal
    200202     $          , info ) 
     203            WRITE(nuout,*) 'inicma : clim define done for ',jf
     204     $          ,cl_read(jf)
    201205          END DO
    202206c
     
    206210            CALL CLIM_Define (cl_writ(jf), clim_out , clim_double,
    207211     $          iparal, info )   
     212            WRITE(nuout,*) 'inicma : clim define done for ',jf
     213     $          ,cl_writ(jf)
    208214          END DO
    209215c
     
    301307c $Id$
    302308      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)
    305312c ======================================================================
    306313c S. Valcke (02/99) adapted From L.Z.X Li: this subroutine provides the
     
    323330      REAL dirunoff(imjm)
    324331      REAL rivrunoff(imjm)
     332      REAL calving(imjm)
    325333c$$$      REAL tauxu(imjm)
    326334c$$$      REAL tauxv(imjm)
     
    356364      WRITE(nuout,*) ' '
    357365      WRITE(nuout,*) 'Intocpl: sending fields to CPL, kt= ', kt
    358       WRITE(nuout,*) ' '
     366      WRITE(nuout,*) 'last  ', last
     367      WRITE(nuout,*)
    359368
    360369      IF (last) THEN
     
    404413          DO jn=1, max_file
    405414            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))
    406418          END DO
    407419c
     
    410422            IF (jf.eq.1)
    411423     $          CALL locwrite(cl_writ(jf),fsolice, imjm,
    412      $          file_unit_field(jf), ierror, nuout)
     424     $          file_unit_field(jf), ierror)
    413425            IF (jf.eq.2)
    414426     $          CALL locwrite(cl_writ(jf),fsolwat, imjm,
    415      $          file_unit_field(jf), ierror, nuout)
     427     $          file_unit_field(jf), ierror)
    416428            IF (jf.eq.3)
    417429     $          CALL locwrite(cl_writ(jf),fnsolice, imjm,
    418      $          file_unit_field(jf), ierror, nuout)
     430     $          file_unit_field(jf), ierror)
    419431            IF (jf.eq.4)
    420432     $          CALL locwrite(cl_writ(jf),fnsolwat, imjm,
    421      $          file_unit_field(jf), ierror, nuout)
     433     $          file_unit_field(jf), ierror)
    422434            IF (jf.eq.5)
    423435     $          CALL locwrite(cl_writ(jf),fnsicedt, imjm,
    424      $          file_unit_field(jf), ierror, nuout)
     436     $          file_unit_field(jf), ierror)
    425437c            IF (jf.eq.6)
    426438c     $          CALL locwrite(cl_writ(jf),ictemp, imjm,
    427 c     $          file_unit_field(jf), ierror, nuout)
     439c     $          file_unit_field(jf), ierror)
    428440            IF (jf.eq.6)
    429441     $          CALL locwrite(cl_writ(jf),evice, imjm,
    430      $          file_unit_field(jf), ierror, nuout)
     442     $          file_unit_field(jf), ierror)
    431443            IF (jf.eq.7)
    432444     $          CALL locwrite(cl_writ(jf),evwat, imjm,
    433      $          file_unit_field(jf), ierror, nuout)
     445     $          file_unit_field(jf), ierror)
    434446            IF (jf.eq.8)
    435447     $          CALL locwrite(cl_writ(jf),lpre, imjm,
    436      $          file_unit_field(jf), ierror, nuout)
     448     $          file_unit_field(jf), ierror)
    437449            IF (jf.eq.9)
    438450     $          CALL locwrite(cl_writ(jf),spre, imjm,
    439      $          file_unit_field(jf), ierror, nuout)
     451     $          file_unit_field(jf), ierror)
    440452            IF (jf.eq.10)
    441453     $          CALL locwrite(cl_writ(jf),dirunoff, imjm,
    442      $          file_unit_field(jf), ierror, nuout)
     454     $          file_unit_field(jf), ierror)
    443455            IF (jf.eq.11)
    444456     $          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)
     461c$$$            IF (jf.eq.13)
    447462c$$$     $          CALL locwrite(cl_writ(jf),tauxu, imjm,
    448 c$$$     $          file_unit_field(jf),ierror, nuout)
    449 c$$$            IF (jf.eq.13)
     463c$$$     $          file_unit_field(jf),ierror)
     464c$$$            IF (jf.eq.1')
    450465c$$$     $          CALL locwrite(cl_writ(jf),tauxv, imjm,
    451 c$$$     $          file_unit_field(jf),ierror, nuout)
    452 c$$$            IF (jf.eq.14)
     466c$$$     $          file_unit_field(jf),ierror)
     467c$$$            IF (jf.eq.15)
    453468c$$$     $          CALL locwrite(cl_writ(jf),tauyv, imjm,
    454 c$$$     $          file_unit_field(jf),ierror, nuout)
    455 c$$$            IF (jf.eq.15)
     469c$$$     $          file_unit_field(jf),ierror)
     470c$$$            IF (jf.eq.16)
    456471c$$$     $          CALL locwrite(cl_writ(jf),tauyu, imjm,
    457 c$$$     $          file_unit_field(jf), ierror, nuout)
    458             IF (jf.eq.12)
     472c$$$     $          file_unit_field(jf), ierror)
     473            IF (jf.eq.13)
    459474     $          CALL locwrite(cl_writ(jf),tauxx_u, imjm,
    460475     $          file_unit_field(jf),ierror)
    461             IF (jf.eq.13)
     476            IF (jf.eq.14)
    462477     $          CALL locwrite(cl_writ(jf),tauyy_u, imjm,
    463478     $          file_unit_field(jf),ierror)
    464             IF (jf.eq.14)
     479            IF (jf.eq.15)
    465480     $          CALL locwrite(cl_writ(jf),tauzz_u, imjm,
    466481     $          file_unit_field(jf),ierror)
    467             IF (jf.eq.15)
     482            IF (jf.eq.16)
    468483     $          CALL locwrite(cl_writ(jf),tauxx_v, imjm,
    469484     $          file_unit_field(jf),ierror)
    470             IF (jf.eq.16)
     485            IF (jf.eq.17)
    471486     $          CALL locwrite(cl_writ(jf),tauyy_v, imjm,
    472487     $          file_unit_field(jf),ierror)
    473             IF (jf.eq.17)
     488            IF (jf.eq.18)
    474489     $          CALL locwrite(cl_writ(jf),tauzz_v, imjm,
    475490     $          file_unit_field(jf),ierror)
     
    515530          IF (jn.eq.10) CALL CLIM_Export(cl_writ(jn),kt,dirunoff, info)
    516531          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)
     533c$$$          IF (jn.eq.13) CALL CLIM_Export(cl_writ(jn), kt, tauxu, info)
     534c$$$          IF (jn.eq.14) CALL CLIM_Export(cl_writ(jn), kt, tauxv, info)
     535c$$$          IF (jn.eq.15) CALL CLIM_Export(cl_writ(jn), kt, tauyv, info)
     536c$$$          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)
    527543         
    528544            IF (info .NE. CLIM_Ok) THEN
  • LMDZ.3.3/branches/rel-LF/libf/phylmd/oasis.true

    r179 r394  
    8080      cl_writ(10)='CORUNCOA'
    8181      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'
     83c$$$      cl_writ(13)='COZOTAUX'
     84c$$$      cl_writ(14)='COZOTAUV'
     85c$$$      cl_writ(15)='COMETAUY'
     86c$$$      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'
    9293c
    9394c     Define files name for fields exchanged from atmos to coupler,
     
    111112      cl_f_writ(16)='flxatmos'
    112113      cl_f_writ(17)='flxatmos'
     114      cl_f_writ(18)='flxatmos'
    113115
    114116c
     
    305307c $Id$
    306308      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)
    309312c ======================================================================
    310313c S. Valcke (02/99) adapted From L.Z.X Li: this subroutine provides the
     
    327330      REAL dirunoff(imjm)
    328331      REAL rivrunoff(imjm)
     332      REAL calving(imjm)
    329333c$$$      REAL tauxu(imjm)
    330334c$$$      REAL tauxv(imjm)
     
    360364      WRITE(nuout,*) ' '
    361365      WRITE(nuout,*) 'Intocpl: sending fields to CPL, kt= ', kt
    362       WRITE(nuout,*) ' '
     366      WRITE(nuout,*) 'last  ', last
     367      WRITE(nuout,*)
    363368
    364369      IF (last) THEN
     
    408413          DO jn=1, max_file
    409414            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))
    410418          END DO
    411419c
     
    448456     $          CALL locwrite(cl_writ(jf),rivrunoff, imjm,
    449457     $          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)
     461c$$$            IF (jf.eq.13)
    451462c$$$     $          CALL locwrite(cl_writ(jf),tauxu, imjm,
    452463c$$$     $          file_unit_field(jf),ierror)
    453 c$$$            IF (jf.eq.13)
     464c$$$            IF (jf.eq.1')
    454465c$$$     $          CALL locwrite(cl_writ(jf),tauxv, imjm,
    455466c$$$     $          file_unit_field(jf),ierror)
    456 c$$$            IF (jf.eq.14)
     467c$$$            IF (jf.eq.15)
    457468c$$$     $          CALL locwrite(cl_writ(jf),tauyv, imjm,
    458469c$$$     $          file_unit_field(jf),ierror)
    459 c$$$            IF (jf.eq.15)
     470c$$$            IF (jf.eq.16)
    460471c$$$     $          CALL locwrite(cl_writ(jf),tauyu, imjm,
    461472c$$$     $          file_unit_field(jf), ierror)
    462             IF (jf.eq.12)
     473            IF (jf.eq.13)
    463474     $          CALL locwrite(cl_writ(jf),tauxx_u, imjm,
    464475     $          file_unit_field(jf),ierror)
    465             IF (jf.eq.13)
     476            IF (jf.eq.14)
    466477     $          CALL locwrite(cl_writ(jf),tauyy_u, imjm,
    467478     $          file_unit_field(jf),ierror)
    468             IF (jf.eq.14)
     479            IF (jf.eq.15)
    469480     $          CALL locwrite(cl_writ(jf),tauzz_u, imjm,
    470481     $          file_unit_field(jf),ierror)
    471             IF (jf.eq.15)
     482            IF (jf.eq.16)
    472483     $          CALL locwrite(cl_writ(jf),tauxx_v, imjm,
    473484     $          file_unit_field(jf),ierror)
    474             IF (jf.eq.16)
     485            IF (jf.eq.17)
    475486     $          CALL locwrite(cl_writ(jf),tauyy_v, imjm,
    476487     $          file_unit_field(jf),ierror)
    477             IF (jf.eq.17)
     488            IF (jf.eq.18)
    478489     $          CALL locwrite(cl_writ(jf),tauzz_v, imjm,
    479490     $          file_unit_field(jf),ierror)
     
    519530          IF (jn.eq.10) CALL CLIM_Export(cl_writ(jn),kt,dirunoff, info)
    520531          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)
     533c$$$          IF (jn.eq.13) CALL CLIM_Export(cl_writ(jn), kt, tauxu, info)
     534c$$$          IF (jn.eq.14) CALL CLIM_Export(cl_writ(jn), kt, tauxv, info)
     535c$$$          IF (jn.eq.15) CALL CLIM_Export(cl_writ(jn), kt, tauyv, info)
     536c$$$          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)
    531543         
    532544            IF (info .NE. CLIM_Ok) THEN
Note: See TracChangeset for help on using the changeset viewer.