Changeset 12206 for NEMO/trunk/src/OCE/DIA/diawri.F90

Timestamp:

2019-12-12T12:14:55+01:00 (5 years ago)

Author:

smasson

Message:

trunk: supress diatmb as it was bugged and already coded in diawri, see #1759

File:

• NEMO/trunk/src/OCE/DIA/diawri.F90 (modified) (2 diffs)

NEMO/trunk/src/OCE/DIA/diawri.F90

@@ -46 +46 @@
    USE lbclnk         ! ocean lateral boundary conditions (or mpp link)
    USE in_out_manager ! I/O manager
-   USE diatmb         ! Top,middle,bottom output
    USE dia25h         ! 25h Mean output
    USE iom            ! 
@@ -391 +390 @@
       CALL iom_put( "bn2", rn2 )                      ! Brunt-Vaisala buoyancy frequency (N^2)
       !
-
-      IF (ln_diatmb)   CALL dia_tmb                   ! tmb values 
           
       IF (ln_dia25h)   CALL dia_25h( kt )             ! 25h averaging