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 15361 – NEMO

Changeset 15361


Ignore:
Timestamp:
2021-10-13T17:38:35+02:00 (10 months ago)
Author:
jpalmier
Message:

Add passive tracers in output.abort if key_top active

Location:
NEMO/branches/NERC/dev_r4.0.5_NERC/src
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • NEMO/branches/NERC/dev_r4.0.5_NERC/src/OCE/DIA/diawri.F90

    r13085 r15361  
    937937#endif 
    938938      ! 
     939#if defined key_top 
     940      ! Add passive tracers to abort file 
     941      CALL trc_wri_state( inum ) 
     942#endif 
     943      ! 
    939944      CALL iom_close( inum ) 
    940945      !  
  • NEMO/branches/NERC/dev_r4.0.5_NERC/src/TOP/trcwri.F90

    r12280 r15361  
    2727 
    2828   PUBLIC trc_wri       
    29  
     29   PUBLIC trc_wri_state 
     30    
    3031CONTAINS 
    3132 
     
    7576   END SUBROUTINE trc_wri 
    7677 
     78   SUBROUTINE trc_wri_state( kid ) 
     79      !!--------------------------------------------------------------------- 
     80      !!                     ***  ROUTINE trc_wri_state  *** 
     81      !!  
     82      !! ** Purpose :   create a NetCDF file named cdfile_name which contains  
     83      !!      the instantaneous ice state and forcing fields for passive tracer model 
     84      !!        Used to find errors in the initial state or save the last 
     85      !!      ocean state in case of abnormal end of a simulation 
     86      !! 
     87      !!--------------------------------------------------------------------- 
     88      INTEGER, INTENT( in ) ::   kid  
     89      INTEGER :: jn 
     90      CHARACTER (len=20)   :: cltra 
     91       
     92      DO jn = 1, jptra 
     93         cltra = trim(ctrcnm(jn)) 
     94         CALL iom_rstput( 0, 0, kid, cltra, trn(:,:,:,jn) ) 
     95      END DO 
     96       
     97   END SUBROUTINE trc_wri 
     98    
    7799#else 
    78100   !!---------------------------------------------------------------------- 
     
    84106   INTEGER, INTENT(in) :: kt 
    85107   END SUBROUTINE trc_wri 
     108   !! 
     109   SUBROUTINE trc_wri_state( kid ) 
     110      INTEGER, INTENT( in ) ::   kid  
     111   END SUBROUTINE trc_wri 
     112   !!  
    86113#endif 
    87114 
Note: See TracChangeset for help on using the changeset viewer.