Changeset 16 for trunk/NEMO/OPA_SRC/ZDF/zdfric.F90

Timestamp:

2004-02-17T09:06:15+01:00 (20 years ago)

Author:

opalod

Message:

CT : UPDATE001 : First major NEMO update

File:

• trunk/NEMO/OPA_SRC/ZDF/zdfric.F90 (modified) (2 diffs)

trunk/NEMO/OPA_SRC/ZDF/zdfric.F90

@@ -28 +28 @@
 
    !! * Shared module variables
-   LOGICAL, PUBLIC, PARAMETER ::   lk_zdfric = .TRUE.   !: Richardson vertical mixing flag
+   LOGICAL, PUBLIC, PARAMETER ::   lk_zdfric = .TRUE.    !: Richardson vertical mixing flag
 
    !! * Module variables
@@ -256 +256 @@
 CONTAINS
    SUBROUTINE zdf_ric( kt )        ! Dummy routine
-      WRITE(*,*) kt 
+      WRITE(*,*) 'zdf_ric: You should not have seen this print! error?', kt
    END SUBROUTINE zdf_ric
 #endif