Changeset 12284 for NEMO/trunk/src
- Timestamp:
- 2019-12-23T12:05:58+01:00 (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/trunk/src/OCE/SBC/sbccpl.F90
r12283 r12284 2353 2353 ! ! CO2 flux from PISCES ! 2354 2354 ! ! ------------------------- ! 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 2356 2359 ! 2357 2360 ! ! ------------------------- !
Note: See TracChangeset
for help on using the changeset viewer.