- Timestamp:
- 2016-11-03T16:29:51+01:00 (8 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2016/dev_r7012_ROBUST5_CNRS/NEMOGCM/NEMO/TOP_SRC/PISCES/P4Z/p4zflx.F90
r7162 r7177 205 205 ENDIF 206 206 IF( iom_use( "Dpo2" ) ) THEN 207 zw2d(:,:) = ( atcox * patm(:,:) - atcox * tr n(:,:,1,jpoxy) / ( chemo2(:,:,1) + rtrn ) ) * tmask(:,:,1)207 zw2d(:,:) = ( atcox * patm(:,:) - atcox * trb(:,:,1,jpoxy) / ( chemo2(:,:,1) + rtrn ) ) * tmask(:,:,1) 208 208 CALL iom_put( "Dpo2" , zw2d ) 209 209 ENDIF
Note: See TracChangeset
for help on using the changeset viewer.