Changeset 1125


Ignore:
Timestamp:
Mar 17, 2009, 11:32:56 AM (16 years ago)
Author:
jghattas
Message:

Ajout de la possiblite de couplage de vitesse de glace de mer, uniquement avec NEMO et cpl_current=true.

JG

Location:
LMDZ4/branches/LMDZ4-dev/libf/phylmd
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • LMDZ4/branches/LMDZ4-dev/libf/phylmd/cpl_mod.F90

    r1079 r1125  
    359359               read_u0(:,:), read_v0(:,:), tmp_r0(:,:))
    360360!$OMP END MASTER
    361           CALL WriteField('read_u0',read_u0)
    362           CALL WriteField('read_v0',read_v0)
    363           CALL WriteField('read_r0',tmp_r0)
     361
    364362       ELSE
    365363          read_u0(:,:) = 0.
     
    442440
    443441  SUBROUTINE cpl_receive_seaice_fields(knon, knindex, &
    444        tsurf_new, alb_new)
     442       tsurf_new, alb_new, u0_new, v0_new)
    445443!
    446444! This routine returns the fields for the seaice that have been read from the coupler
     
    459457    REAL, DIMENSION(klon), INTENT(OUT)      :: tsurf_new
    460458    REAL, DIMENSION(klon), INTENT(OUT)      :: alb_new
     459    REAL, DIMENSION(klon), INTENT(OUT)      :: u0_new
     460    REAL, DIMENSION(klon), INTENT(OUT)      :: v0_new
    461461
    462462! Local variables
     
    472472    CALL cpl2gath(read_alb_sic, alb_new, knon, knindex)
    473473    CALL cpl2gath(read_sic, sic_new, knon, knindex)
     474    CALL cpl2gath(read_u0, u0_new, knon, knindex)
     475    CALL cpl2gath(read_v0, v0_new, knon, knindex)
    474476
    475477!*************************************************************************************
  • LMDZ4/branches/LMDZ4-dev/libf/phylmd/ocean_cpl_mod.F90

    r1067 r1125  
    259259
    260260    CALL cpl_receive_seaice_fields(knon, knindex, &
    261          tsurf_cpl, alb_cpl)
     261         tsurf_cpl, alb_cpl, u0, v0)
    262262
    263263    alb1_new(1:knon) = alb_cpl(1:knon)
     
    273273    beta = 1.0
    274274   
    275 ! Suppose zero surface speed
    276     u0(:)=0.0
    277     v0(:)=0.0
    278     u1_lay(:) = u1(:) - u0(:)
    279     v1_lay(:) = v1(:) - v0(:)
     275    DO i = 1, knon
     276       u1_lay(i) = u1(i) - u0(i)
     277       v1_lay(i) = v1(i) - v0(i)
     278    END DO
    280279
    281280    CALL calcul_fluxs(knon, is_sic, dtime, &
Note: See TracChangeset for help on using the changeset viewer.