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 7068 for branches/2016/dev_r7012_ROBUST5_CNRS/NEMOGCM/NEMO/TOP_SRC/TRP/trdmxl_trc_rst.F90 – NEMO

Ignore:
Timestamp:
2016-10-21T17:38:13+02:00 (8 years ago)
Author:
cetlod
Message:

ROBUST5_CNRS : implementation of part I of new TOP interface - 1st step -, see ticket #1782

File:
1 edited

Legend:

Unmodified
Added
Removed

  • branches/2016/dev_r7012_ROBUST5_CNRS/NEMOGCM/NEMO/TOP_SRC/TRP/trdmxl_trc_rst.F90

    r6140 r7068  
    107107            END DO                                                     ! tracer loop 
    108108            !                                                          ! =========== 
    109 #if defined key_pisces_reduced 
    110             DO jl = 1, jp_pisces_trd 
    111                CALL iom_rstput( kt, nitrst, nummldw_trc, 'tmltrd_csum_ub_bio'//ctrd_bio(jl,2), tmltrd_csum_ub_bio(:,:,jl) ) 
    112             ENDDO 
    113 #endif 
    114  
    115109         ENDIF 
    116110          
    … …  
    188182         !                                                          ! =========== 
    189183 
    190 #if defined key_pisces_reduced 
    191          DO jl = 1, jp_pisces_trd 
    192             CALL iom_get( inum, jpdom_autoglo, 'tmltrd_csum_ub_bio'//ctrd_bio(jl,2), tmltrd_csum_ub_bio(:,:,jl) ) 
    193          ENDDO 
    194 #endif 
    195           
    196184         CALL iom_close( inum ) 
    197185      ENDIF 
Note: See TracChangeset for help on using the changeset viewer.