New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Changeset 1459 – NEMO

Changeset 1459


Ignore:
Timestamp:
2009-05-23T10:53:26+02:00 (15 years ago)
Author:
cetlod
Message:

distribution of iom_put in CFC and C14b models, see ticket:437

Location:
trunk/NEMO/TOP_SRC
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • trunk/NEMO/TOP_SRC/C14b/trcsms_c14b.F90

    r1329 r1459  
    1919   USE trdmld_trc_oce 
    2020   USE trdmld_trc 
     21   USE iom 
    2122 
    2223   IMPLICIT NONE 
     
    125126       zpv  ,        &      !: piston velocity  
    126127       zdemi, ztra 
     128#if defined key_trc_dia3d  && defined key_iomput 
     129      REAL(wp), DIMENSION(jpi,jpj,jpk) :: zw3d 
     130#endif 
    127131      !!---------------------------------------------------------------------- 
    128132 
     
    266270            qint_c14(ji,jj) = qint_c14(ji,jj) + qtr_c14(ji,jj) * rdt 
    267271 
    268 # if defined key_trc_diaadd 
     272# if defined key_trc_diaadd && ! defined key_iomput 
    269273            ! Save 2D diagnostics 
    270274            trc2d(ji,jj,jp_c14b0_2d    ) = qtr_c14 (ji,jj) 
     
    284288#endif 
    285289               tra(ji,jj,jk,jpc14) = tra(ji,jj,jk,jpc14) - ztra / rdt 
    286  
    287 # if defined key_trc_dia3d 
     290#if defined key_trc_dia3d 
    288291               ! Save 3D diagnostics 
     292# if ! defined key_iomput 
    289293               trc3d(ji,jj,jk,jp_c14b0_3d ) = ztra    !  radioactive decay 
     294# else  
     295               zw3d(ji,jj,jk) = ztra    !  radioactive decay 
    290296# endif 
     297#endif 
    291298            END DO 
    292299         END DO 
    293300      END DO 
    294301 
     302#if defined key_trc_diaadd  && defined key_iomput 
     303      CALL iom_put( "qtrC14b"  , qtr_c14  ) 
     304      CALL iom_put( "qintC14b" , qint_c14 ) 
     305#endif 
     306#if defined key_trc_dia3d  && defined key_iomput 
     307      CALL iom_put( "fdecay" , zw3d ) 
     308#endif 
    295309      IF( l_trdtrc ) THEN 
    296310         CALL trd_mod_trc( tra(:,:,:,jpc14), jpc14, jptrc_trd_sms, kt )   ! save trends 
  • trunk/NEMO/TOP_SRC/CFC/trcsms_cfc.F90

    r1329 r1459  
    2020   USE trdmld_trc_oce 
    2121   USE trdmld_trc 
     22   USE iom 
    2223 
    2324   IMPLICIT NONE 
     
    165166               ! cumulation of surface flux at each time step 
    166167               qint_cfc(ji,jj,jl) = qint_cfc(ji,jj,jl) + qtr_cfc(ji,jj,jl) * rdt 
    167  
    168 # if defined key_trc_diaadd 
    169                ! Save diagnostics , just for CFC11 
    170                js = 1  
    171                trc2d(ji,jj,jp_cfc0_2d    ) = qtr_cfc (ji,jj,js) 
    172                trc2d(ji,jj,jp_cfc0_2d + 1) = qint_cfc(ji,jj,js) 
    173 # endif               
    174168               !                                               !----------------! 
    175169            END DO                                             !  end i-j loop  ! 
     
    179173      !                                                     !----------------! 
    180174 
     175#if defined key_trc_diaadd  
     176      ! Save diagnostics , just for CFC11 
     177# if ! defined key_iomput 
     178      trc2d(:,:,jp_cfc0_2d    ) = qtr_cfc (:,:,1) 
     179      trc2d(:,:,jp_cfc0_2d + 1) = qint_cfc(:,:,1) 
     180# else 
     181      CALL iom_put( "qtrCFC11"  , qtr_cfc (:,:,1) ) 
     182      CALL iom_put( "qintCFC11" , qint_cfc(:,:,1) ) 
     183# endif 
     184#endif 
     185 
    181186      IF( l_trdtrc ) THEN 
    182187          DO jn = jp_cfc0, jp_cfc1 
Note: See TracChangeset for help on using the changeset viewer.