Changeset 6536


Ignore:
Timestamp:
2016-05-13T16:44:02+02:00 (5 years ago)
Author:
cetlod
Message:

Minor bugfix

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  
    259259         ENDIF 
    260260#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 
    261268         IF( iom_use( "Oflx"  ) )  THEN 
    262269            zw2d(:,:) =  zoflx(:,:) * 1000 * tmask(:,:,1) 
     
    268275         ENDIF 
    269276         IF( iom_use( "Dpco2" ) ) THEN 
    270            zw2d(:,:) = ( satmco2(:,:) * patm(:,:) - zh2co3(:,:) / ( chemc(:,:,1) + rtrn ) ) * tmask(:,:,1) 
     277           zw2d(:,:) = ( satmco2(:,:) * patm(:,:) - zh2co3(:,:) / ( chemc(:,:) + rtrn ) ) * tmask(:,:,1) 
    271278           CALL iom_put( "Dpco2" ,  zw2d ) 
    272279         ENDIF 
    273280         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) 
    275282           CALL iom_put( "Dpo2"  , zw2d ) 
    276283         ENDIF 
     
    284291            trc2d(:,:,jp_pcs0_2d + 1) = zoflx(:,:) * 1000 * tmask(:,:,1)  
    285292            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 
    289297      ! 
    290298#ifdef key_c13  
  • branches/CNRS/dev_r6526_PISCES_ISO/NEMOGCM/NEMO/TOP_SRC/PISCES/par_pisces.F90

    r6534 r6536  
    185185#endif 
    186186 
    187 #endif 
    188  
    189187#else 
    190188   !!--------------------------------------------------------------------- 
Note: See TracChangeset for help on using the changeset viewer.