Ignore:
Timestamp:
2015-12-11T12:13:32+01:00 (5 years ago)
Author:
timgraham
Message:

Merged branches/2014/dev_r4650_UKMO10_Tidally_Meaned_Diagnostics into branch

File:
1 edited

Legend:

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

    r6010 r6035  
    4343   USE in_out_manager  ! I/O manager 
    4444   USE diadimg         ! dimg direct access file format output 
     45   USE diatmb          ! Top,middle,bottom output 
     46   USE dia25h          ! 25h Mean output 
    4547   USE iom 
    4648   USE ioipsl 
     
    382384      CALL wrk_dealloc( jpi , jpj, jpk , z3d ) 
    383385      ! 
     386      ! If we want tmb values  
     387 
     388      IF (ln_diatmb) THEN 
     389         CALL dia_tmb  
     390      ENDIF  
     391      IF (ln_dia25h) THEN 
     392         CALL dia_25h( kt ) 
     393      ENDIF  
     394 
    384395      IF( nn_timing == 1 )   CALL timing_stop('dia_wri') 
    385396      ! 
Note: See TracChangeset for help on using the changeset viewer.