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 5075 for branches/2014/dev_r4650_UKMO7_STARTHOUR/NEMOGCM/NEMO/TOP_SRC/CFC/trcsms_cfc.F90 – NEMO

Ignore:
Timestamp:
2015-02-11T11:50:34+01:00 (9 years ago)
Author:
timgraham
Message:

Upgraded branch to current head of trunk (r5072) so it can be used with the trunk

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/2014/dev_r4650_UKMO7_STARTHOUR/NEMOGCM/NEMO/TOP_SRC/CFC/trcsms_cfc.F90

    r3680 r5075  
    1818   USE par_trc       ! TOP parameters 
    1919   USE trc           ! TOP variables 
    20    USE trdmod_oce 
    21    USE trdmod_trc 
     20   USE trd_oce 
     21   USE trdtrc 
    2222   USE iom           ! I/O library 
    2323 
     
    185185            CALL iom_rstput( kt, nitrst, numrtw, 'qint_'//ctrcnm(jn), qint_cfc(:,:,jn) ) 
    186186         END DO 
    187       ENDIF 
    188       !                                               
    189       IF( ln_diatrc ) THEN 
    190         ! 
    191         IF( lk_iomput ) THEN 
    192            CALL iom_put( "qtrCFC11"  , qtr_cfc (:,:,1) ) 
    193            CALL iom_put( "qintCFC11" , qint_cfc(:,:,1) ) 
    194         ELSE 
    195            trc2d(:,:,jp_cfc0_2d    ) = qtr_cfc (:,:,1) 
    196            trc2d(:,:,jp_cfc0_2d + 1) = qint_cfc(:,:,1) 
    197         END IF 
    198         ! 
     187      ENDIF                                             
     188      ! 
     189      IF( lk_iomput ) THEN 
     190         CALL iom_put( "qtrCFC11"  , qtr_cfc (:,:,1) ) 
     191         CALL iom_put( "qintCFC11" , qint_cfc(:,:,1) ) 
     192      ELSE 
     193         IF( ln_diatrc ) THEN 
     194            trc2d(:,:,jp_cfc0_2d    ) = qtr_cfc (:,:,1) 
     195            trc2d(:,:,jp_cfc0_2d + 1) = qint_cfc(:,:,1) 
     196         END IF 
    199197      END IF 
    200   
     198      ! 
    201199      IF( l_trdtrc ) THEN 
    202200          DO jn = jp_cfc0, jp_cfc1 
    203             CALL trd_mod_trc( tra(:,:,:,jn), jn, jptra_trd_sms, kt )   ! save trends 
     201            CALL trd_trc( tra(:,:,:,jn), jn, jptra_sms, kt )   ! save trends 
    204202          END DO 
    205203      END IF 
Note: See TracChangeset for help on using the changeset viewer.