Changeset 16 for trunk/NEMO/OPA_SRC/TRD/trdmld.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/TRD/trdmld.F90 (modified) (2 diffs)

trunk/NEMO/OPA_SRC/TRD/trdmld.F90

@@ -37 +37 @@
 
    !! * Shared module variables
-   LOGICAL, PUBLIC, PARAMETER ::   lk_trdmld = .TRUE.   ! momentum trend flag
+   LOGICAL, PUBLIC, PARAMETER ::   lk_trdmld = .TRUE.    !: momentum trend flag
 
    !! * Module variables
@@ -609 +609 @@
    !!   Default option :                                       Empty module
    !!----------------------------------------------------------------------
-   LOGICAL, PUBLIC, PARAMETER ::   lk_trdmld = .FALSE.   ! momentum trend flag
+   LOGICAL, PUBLIC, PARAMETER ::   lk_trdmld = .FALSE.   !: momentum trend flag
 CONTAINS
    SUBROUTINE trd_mld( kt )        ! Empty routine
-      WRITE(*,*) kt
+      WRITE(*,*) 'trd_mld: You should not have seen this print! error?', kt
    END SUBROUTINE trd_mld
 #endif