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 5427 for branches/UKMO/2015_CO6_CO5_shelfdiagnostic/NEMOGCM/NEMO/OPA_SRC/DIA/diawri.F90 – NEMO

Ignore:
Timestamp:
2015-06-16T06:16:43+02:00 (9 years ago)
Author:
deazer
Message:

Added back in basic shelf seas diagnostics after removal of svn keywords.
Builds, extracts and mereges and runs as expected from working copy

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/UKMO/2015_CO6_CO5_shelfdiagnostic/NEMOGCM/NEMO/OPA_SRC/DIA/diawri.F90

    r5422 r5427  
    4444   USE in_out_manager  ! I/O manager 
    4545   USE diadimg         ! dimg direct access file format output 
     46   USE diatmb          ! Top,middle,bottom output 
     47   USE dia25h          ! 25h Mean output 
    4648   USE iom 
    4749   USE ioipsl 
     
    333335      CALL wrk_dealloc( jpi , jpj, jpk , z3d ) 
    334336      ! 
     337      ! If we want tmb values  
     338 
     339      IF (ln_diatmb) THEN 
     340         CALL dia_tmb  
     341      ENDIF  
     342      IF (ln_dia25h) THEN 
     343         CALL dia_25h( kt ) 
     344      ENDIF  
     345 
    335346      IF( nn_timing == 1 )   CALL timing_stop('dia_wri') 
    336347      ! 
Note: See TracChangeset for help on using the changeset viewer.