Changeset 2817


Ignore:
Timestamp:
2011-08-01T11:10:53+02:00 (10 years ago)
Author:
charris
Message:

Fixes to 10m wind and CO2 flux following e-mails from Sebastien and Christian.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/2011/dev_r2802_UKMO8_sbccpl/NEMOGCM/NEMO/OPA_SRC/SBC/sbccpl.F90

    r2816 r2817  
    762762      ENDIF 
    763763 
    764       ! u(v)tau and taum will be modified by ice model (wndm will be changed by PISCES) 
     764      ! u(v)tau and taum will be modified by ice model 
    765765      ! -> need to be reset before each call of the ice/fsbc       
    766766      IF( MOD( kt-1, k_fsbc ) == 0 ) THEN 
     
    769769         vtau(:,:) = frcv(jpr_oty1)%z3(:,:,1) 
    770770         taum(:,:) = frcv(jpr_taum)%z3(:,:,1) 
    771          wndm(:,:) = frcv(jpr_w10m)%z3(:,:,1) 
    772771         CALL iom_put( "taum_oce", taum )   ! output wind stress module 
    773772         !   
    774773      ENDIF 
     774 
     775#if defined key_cpl_carbon_cycle 
     776      !                                                              ! atmosph. CO2 (ppm) 
     777      IF( srcv(jpr_co2)%laction )   atm_co2(:,:) = frcv(jpr_co2)%z3(:,:,1) 
     778#endif 
     779 
    775780      !                                                      ! ========================= ! 
    776781      IF( k_ice <= 1 ) THEN                                  !  heat & freshwater fluxes ! (Ocean only case) 
     
    821826         emps(:,:) = emp(:,:)                                        ! concentration/dilution = emp 
    822827   
    823          !                                                           ! 10 m wind speed 
    824          IF( srcv(jpr_w10m)%laction )   wndm(:,:) = frcv(jpr_w10m)%z3(:,:,1) 
    825          ! 
    826 #if defined key_cpl_carbon_cycle 
    827          !                                                              ! atmosph. CO2 (ppm) 
    828          IF( srcv(jpr_co2)%laction )   atm_co2(:,:) = frcv(jpr_co2)%z3(:,:,1) 
    829 #endif 
    830  
    831828      ENDIF 
    832829      ! 
Note: See TracChangeset for help on using the changeset viewer.