Changeset 1248

Timestamp:

2009-01-12T09:34:38+01:00 (15 years ago)

Author:

smasson

Message:

coupling interface, small bugfix from A. Caubel, see ticket:155

File:

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

trunk/NEMO/OPA_SRC/SBC/sbccpl.F90

@@ -373 +373 @@
       !                                                      !      10m wind module      !   
       !                                                      ! ------------------------- !
-      srcv(jpr_w10m  )%clname = 'O_Wind10'   ;   IF( TRIM(cn_rcv_w10m) == 'coupled' )   srcv(jpr_w10m)%laction = .TRUE.
-!     ! +++ ---> A brancher et a blinder dans tke  si cn_rcv_w10m == 'none'
-     
+      srcv(jpr_w10m  )%clname = 'O_Wind10'   ;   IF( TRIM(cn_rcv_w10m) == 'coupled' )   srcv(jpr_w10m)%laction = .TRUE.     
      
       ! ================================ !
@@ -604 +602 @@
          !
          !                                                        ! runoffs and calving (added in emp)
-         IF( srcv(jpr_rnf)%laction )   emp(:,:) = emp(:,:) -      frcv(:,:,jpr_rnf)        
-         IF( srcv(jpr_cal)%laction )   emp(:,:) = emp(:,:) - ABS( frcv(:,:,jpr_cal) )      
+         IF( srcv(jpr_rnf)%laction )   emp(:,:) = emp(:,:) - frcv(:,:,jpr_rnf)        
+         IF( srcv(jpr_cal)%laction )   emp(:,:) = emp(:,:) - frcv(:,:,jpr_cal)
          !
 !!gm :  this seems to be internal cooking, not sure to need that in a generic interface 
@@ -973 +971 @@
       !                                                      ! ========================= !
       !
-!!AC      IF( srcv(jpr_w10m  )%laction )   wind10m(:,:) = frcv(:,:,jpr_w10m)
-!!gm ---> blinder dans tke  si cn_rcv_w10m == 'none'
+      IF( srcv(jpr_w10m  )%laction )   wind10m(:,:) = frcv(:,:,jpr_w10m)
       !
    END SUBROUTINE sbc_cpl_ice_flx