Changeset 10823 for NEMO/releases/release-4.0/src/OCE/DIA/diacfl.F90

Timestamp:

2019-04-02T15:32:40+02:00 (5 years ago)

Author:

clem

Message:

output cfl diagnostics (courant numbers) in netcdf => add cfl_cu, cfl_cv, cfl_cw

File:

• NEMO/releases/release-4.0/src/OCE/DIA/diacfl.F90 (modified) (2 diffs)

NEMO/releases/release-4.0/src/OCE/DIA/diacfl.F90

@@ -17 +17 @@
    USE lbclnk          ! ocean lateral boundary condition (or mpp link)
    USE in_out_manager  ! I/O manager
+   USE iom             ! 
    USE timing          ! Performance output
 
@@ -78 +79 @@
       END DO
       !
+      ! write outputs
+      IF( iom_use('cfl_cu') )   CALL iom_put( 'cfl_cu', MAXVAL( zCu_cfl, dim=3 ) )
+      IF( iom_use('cfl_cv') )   CALL iom_put( 'cfl_cv', MAXVAL( zCv_cfl, dim=3 ) )
+      IF( iom_use('cfl_cw') )   CALL iom_put( 'cfl_cw', MAXVAL( zCw_cfl, dim=3 ) )
+
       !                    ! calculate maximum values and locations
       IF( lk_mpp ) THEN