Changeset 6536 for branches/CNRS/dev_r6526_PISCES_ISO/NEMOGCM/NEMO/TOP_SRC
- Timestamp:
- 2016-05-13T16:44:02+02:00 (8 years ago)
- Location:
- branches/CNRS/dev_r6526_PISCES_ISO/NEMOGCM/NEMO/TOP_SRC/PISCES
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/CNRS/dev_r6526_PISCES_ISO/NEMOGCM/NEMO/TOP_SRC/PISCES/P4Z/p4zflx.F90
r6534 r6536 259 259 ENDIF 260 260 #endif 261 262 IF( lk_iomput .AND. knt == nrdttrc ) THEN 263 CALL wrk_alloc( jpi, jpj, zw2d ) 264 IF( iom_use( "Cflx" ) ) THEN 265 zw2d(:,:) = oce_co2(:,:) / e1e2t(:,:) * rfact2r 266 CALL iom_put( "Cflx" , zw2d ) 267 ENDIF 261 268 IF( iom_use( "Oflx" ) ) THEN 262 269 zw2d(:,:) = zoflx(:,:) * 1000 * tmask(:,:,1) … … 268 275 ENDIF 269 276 IF( iom_use( "Dpco2" ) ) THEN 270 zw2d(:,:) = ( satmco2(:,:) * patm(:,:) - zh2co3(:,:) / ( chemc(:,: ,1) + rtrn ) ) * tmask(:,:,1)277 zw2d(:,:) = ( satmco2(:,:) * patm(:,:) - zh2co3(:,:) / ( chemc(:,:) + rtrn ) ) * tmask(:,:,1) 271 278 CALL iom_put( "Dpco2" , zw2d ) 272 279 ENDIF 273 280 IF( iom_use( "Dpo2" ) ) THEN 274 zw2d(:,:) = ( atcox * patm(:,:) - trb(:,:,1,jpoxy) / ( chemc(:,:,2) + rtrn ) ) * tmask(:,:,1)281 zw2d(:,:) = ( atcox * patm(:,:) - atcox * trn(:,:,1,jpoxy) / ( chemo2(:,:,1) + rtrn ) ) * tmask(:,:,1) 275 282 CALL iom_put( "Dpo2" , zw2d ) 276 283 ENDIF … … 284 291 trc2d(:,:,jp_pcs0_2d + 1) = zoflx(:,:) * 1000 * tmask(:,:,1) 285 292 trc2d(:,:,jp_pcs0_2d + 2) = zkgco2(:,:) * tmask(:,:,1) 286 trc2d(:,:,jp_pcs0_2d + 3) = ( satmco2(:,:) * patm(:,:) - zh2co3(:,:) / ( chemc(:,:,1) + rtrn ) ) * tmask(:,:,1) 287 ENDIF 288 ENDIF 293 trc2d(:,:,jp_pcs0_2d + 3) = ( satmco2(:,:) * patm(:,:) - zh2co3(:,:) / ( chemc(:,:) + rtrn ) ) * tmask(:,:,1) 294 ENDIF 295 ENDIF 296 289 297 ! 290 298 #ifdef key_c13 -
branches/CNRS/dev_r6526_PISCES_ISO/NEMOGCM/NEMO/TOP_SRC/PISCES/par_pisces.F90
r6534 r6536 185 185 #endif 186 186 187 #endif188 189 187 #else 190 188 !!---------------------------------------------------------------------
Note: See TracChangeset
for help on using the changeset viewer.