- Timestamp:
- 2011-08-01T11:10:53+02:00 (13 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2011/dev_r2802_UKMO8_sbccpl/NEMOGCM/NEMO/OPA_SRC/SBC/sbccpl.F90
r2816 r2817 762 762 ENDIF 763 763 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 765 765 ! -> need to be reset before each call of the ice/fsbc 766 766 IF( MOD( kt-1, k_fsbc ) == 0 ) THEN … … 769 769 vtau(:,:) = frcv(jpr_oty1)%z3(:,:,1) 770 770 taum(:,:) = frcv(jpr_taum)%z3(:,:,1) 771 wndm(:,:) = frcv(jpr_w10m)%z3(:,:,1)772 771 CALL iom_put( "taum_oce", taum ) ! output wind stress module 773 772 ! 774 773 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 775 780 ! ! ========================= ! 776 781 IF( k_ice <= 1 ) THEN ! heat & freshwater fluxes ! (Ocean only case) … … 821 826 emps(:,:) = emp(:,:) ! concentration/dilution = emp 822 827 823 ! ! 10 m wind speed824 IF( srcv(jpr_w10m)%laction ) wndm(:,:) = frcv(jpr_w10m)%z3(:,:,1)825 !826 #if defined key_cpl_carbon_cycle827 ! ! atmosph. CO2 (ppm)828 IF( srcv(jpr_co2)%laction ) atm_co2(:,:) = frcv(jpr_co2)%z3(:,:,1)829 #endif830 831 828 ENDIF 832 829 !
Note: See TracChangeset
for help on using the changeset viewer.