Changeset 1248 for trunk/NEMO/OPA_SRC
- Timestamp:
- 2009-01-12T09:34:38+01:00 (15 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMO/OPA_SRC/SBC/sbccpl.F90
r1232 r1248 373 373 ! ! 10m wind module ! 374 374 ! ! ------------------------- ! 375 srcv(jpr_w10m )%clname = 'O_Wind10' ; IF( TRIM(cn_rcv_w10m) == 'coupled' ) srcv(jpr_w10m)%laction = .TRUE. 376 ! ! +++ ---> A brancher et a blinder dans tke si cn_rcv_w10m == 'none' 377 375 srcv(jpr_w10m )%clname = 'O_Wind10' ; IF( TRIM(cn_rcv_w10m) == 'coupled' ) srcv(jpr_w10m)%laction = .TRUE. 378 376 379 377 ! ================================ ! … … 604 602 ! 605 603 ! ! runoffs and calving (added in emp) 606 IF( srcv(jpr_rnf)%laction ) emp(:,:) = emp(:,:) - 607 IF( srcv(jpr_cal)%laction ) emp(:,:) = emp(:,:) - ABS( frcv(:,:,jpr_cal) )604 IF( srcv(jpr_rnf)%laction ) emp(:,:) = emp(:,:) - frcv(:,:,jpr_rnf) 605 IF( srcv(jpr_cal)%laction ) emp(:,:) = emp(:,:) - frcv(:,:,jpr_cal) 608 606 ! 609 607 !!gm : this seems to be internal cooking, not sure to need that in a generic interface … … 973 971 ! ! ========================= ! 974 972 ! 975 !!AC IF( srcv(jpr_w10m )%laction ) wind10m(:,:) = frcv(:,:,jpr_w10m) 976 !!gm ---> blinder dans tke si cn_rcv_w10m == 'none' 973 IF( srcv(jpr_w10m )%laction ) wind10m(:,:) = frcv(:,:,jpr_w10m) 977 974 ! 978 975 END SUBROUTINE sbc_cpl_ice_flx
Note: See TracChangeset
for help on using the changeset viewer.