Changeset 763 for branches/dev_001_GM/NEMO/TOP_SRC/trclsm.F90

Timestamp:

2007-12-13T14:52:50+01:00 (17 years ago)

Author:

gm

Message:

dev_001_GM - Style only addition in TOP F90 h90 routines

File:

• branches/dev_001_GM/NEMO/TOP_SRC/trclsm.F90 (modified) (2 diffs)

branches/dev_001_GM/NEMO/TOP_SRC/trclsm.F90

@@ -1 +1 @@
 MODULE trclsm
-   !!===============================================================
-   !!
-   !!                       *** MODULE trclsm ****
-   !!
-   !!  READS specific NAMELIST for sms terms
-   !!
-   !!=================================================================
-   !!  TOP 1.0,  LOCEAN-IPSL (2005) 
-   !! $Header$ 
-   !! This software is governed by the CeCILL licence see modipsl/doc/NEMO_CeCILL.txt 
-   !!-----------------------------------------------------------------
+   !!======================================================================
+   !!                         ***  MODULE trclsm  ***
+   !! TOP :   reads specific namelist for passive tracer sms terms
+   !!======================================================================
+   !! History :   1.0  !  2004-03 (C. Ethe) Original code
+   !!----------------------------------------------------------------------
+   !! NEMO/TOP 1.0 , LOCEAN-IPSL (2005) 
+   !! $Header:$ 
+   !! Software governed by the CeCILL licence (modipsl/doc/NEMO_CeCILL.txt)
+   !!----------------------------------------------------------------------
 #if defined key_passivetrc
-   !!-------------------------------------------------------------
-   !! * Modules used
-   !! ==============
+   !!----------------------------------------------------------------------
+   !!   'key_passivetrc'                                    Passive tracers
+   !!----------------------------------------------------------------------
+   !!   trc_lsm   : eads specific namelist for sms terms
+   !!----------------------------------------------------------------------
    USE oce_trc
    USE trc
    USE sms
 
-
    IMPLICIT NONE                             
    PRIVATE
 
-   !! * Accessibility
-   PUBLIC trc_lsm
-
+   PUBLIC   trc_lsm      ! calles in ???
 
 #if defined key_trc_lobster1
@@ -41 +39 @@
 #elif defined key_cfc
    !!----------------------------------------------------------------------
-   !!   'key_cfc  '                                          CFC model                  
+   !!   'key_cfc'                                                 CFC model                  
    !!----------------------------------------------------------------------
 #  include "trclsm.cfc.h90"
 
-   !!----------------------------------------------------------------------
-   !!   Default option                               
-   !!----------------------------------------------------------------------
 # endif
 
 #else
-
+   !!----------------------------------------------------------------------
+   !!  Dummy module :                                     No passive tracer
+   !!----------------------------------------------------------------------
 CONTAINS
-
-   SUBROUTINE trc_lsm
-      !!================
-      !! no passive tracers
+   SUBROUTINE trc_lsm                      ! Empty routine
    END  SUBROUTINE  trc_lsm
-
 #endif  
 
+   !!======================================================================
 END MODULE trclsm