Changeset 1249 for trunk/NEMO/OPA_SRC/SBC/sbccpl.F90

Timestamp:

2009-01-12T16:35:22+01:00 (15 years ago)

Author:

smasson

Message:

coupling interface, bugfix regarding changeset:1248, see ticket:155

File:

• trunk/NEMO/OPA_SRC/SBC/sbccpl.F90 (modified) (4 diffs)

trunk/NEMO/OPA_SRC/SBC/sbccpl.F90

@@ -497 +497 @@
       !!                        qns , qsr    non solar and solar ocean heat fluxes   ('ocean only case)
       !!                        emp = emps   evap. - precip. (- runoffs) (- calving) ('ocean only case)
-      !!                        wind10m      10m wind speed  !!!!gm  to be checked
+      !!                        wndm         10m wind speed  !!!!gm  to be checked
       !!----------------------------------------------------------------------
       INTEGER, INTENT(in) ::   kt       ! ocean model time step index
@@ -836 +836 @@
       !!       ===>> CAUTION here this changes the net heat flux received from
       !!             the atmosphere
-      !!              * 10m wind module (wind10m)   
+      !!              * 10m wind module (wndm)   
       !!
       !!             N.B. - fields over sea-ice are passed in argument so that
@@ -856 +856 @@
       !!                   pdqns_ice           d(non-solar heat flux)/d(Temperature) over the ice
       !!                   sprecip             solid precipitation over the ocean  
-      !!                   wind10m             10m wind module
+      !!                   wndm                10m wind module
       !!----------------------------------------------------------------------
       REAL(wp), INTENT(in   ), DIMENSION(jpi,jpj) ::   p_frld     ! lead fraction                [0 to 1]
@@ -968 +968 @@
 
       !                                                      ! ========================= !
-      !                                                      !      10 m wind speed      !   (wind10m)
+      !                                                      !      10 m wind speed      !   (wndm)
       !                                                      ! ========================= !
       !
-      IF( srcv(jpr_w10m  )%laction )   wind10m(:,:) = frcv(:,:,jpr_w10m)
+      IF( srcv(jpr_w10m  )%laction )   wndm(:,:) = frcv(:,:,jpr_w10m)
       !
    END SUBROUTINE sbc_cpl_ice_flx