Changeset 12284


Ignore:
Timestamp:
2019-12-23T12:05:58+01:00 (5 weeks ago)
Author:
cetlod
Message:

trunk:give the right unit to ocean carbon flux

File:
1 edited

Legend:

Unmodified
Added
Removed
  • NEMO/trunk/src/OCE/SBC/sbccpl.F90

    r12283 r12284  
    23532353      !                                                      !  CO2 flux from PISCES     !  
    23542354      !                                                      ! ------------------------- ! 
    2355       IF( ssnd(jps_co2)%laction .AND. l_co2cpl )   CALL cpl_snd( jps_co2, isec, RESHAPE ( oce_co2, (/jpi,jpj,1/) ) , info ) 
     2355      IF( ssnd(jps_co2)%laction .AND. l_co2cpl )   THEN   
     2356         ztmp1(:,:) = oce_co2(:,:) * 1000.  ! conversion in molC/m2/s  
     2357         CALL cpl_snd( jps_co2, isec, RESHAPE ( ztmp1, (/jpi,jpj,1/) ) , info )  
     2358      ENDIF  
    23562359      ! 
    23572360      !                                                      ! ------------------------- ! 
Note: See TracChangeset for help on using the changeset viewer.