Changeset 763 for branches/dev_001_GM/NEMO/TOP_SRC/SMS/sms.F90

Timestamp:

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

Author:

gm

Message:

dev_001_GM - Style only addition in TOP F90 h90 routines

File:

• branches/dev_001_GM/NEMO/TOP_SRC/SMS/sms.F90 (modified) (4 diffs)

branches/dev_001_GM/NEMO/TOP_SRC/SMS/sms.F90

@@ -4 +4 @@
    !! passive tracers :   set the passive tracers variables
    !!======================================================================
-   !! History :
-   !!   9.0  !  04-03  (C. Ethe)  Free form and module
+   !! History :    -   !  2004-03  (C. Ethe)  Free form and module
    !!----------------------------------------------------------------------
-   !!  TOP 1.0 , LOCEAN-IPSL (2005) 
-   !! $Header$ 
-   !! This software is governed by the CeCILL licence see modipsl/doc/NEMO_CeCILL.txt 
    !!----------------------------------------------------------------------
-   !! * Modules used
+   !! NEMO/TOP 1.0 , LOCEAN-IPSL (2005) 
+   !! $Header:$ 
+   !! Software governed by the CeCILL licence (modipsl/doc/NEMO_CeCILL.txt)
+   !!----------------------------------------------------------------------
 #if defined key_passivetrc
-
+   !!----------------------------------------------------------------------
+   !!   'key_passivetrc'                                    Passive tracers
+   !!----------------------------------------------------------------------
    USE par_oce
    USE par_trc
@@ -19 +20 @@
 
    IMPLICIT NONE
-
    PUBLIC
 
-#if defined key_trc_lobster1
+# if defined key_trc_lobster1
    !!----------------------------------------------------------------------
    !!   'key_trc_lobster1'                        LOBSTER1 biological model  
@@ -28 +28 @@
 #  include "sms_lobster1.h90"
 
-#elif defined key_trc_pisces
+# elif defined key_trc_pisces
    !!----------------------------------------------------------------------
    !!   'key_trc_pisces'                            PISCES biological model                  
@@ -34 +34 @@
 #  include "sms_pisces.h90"
 
-#elif defined key_cfc
+# elif defined key_cfc
    !!----------------------------------------------------------------------
-   !!   'key_cfc  '                                          CFC model                  
+   !!   'key_cfc  '                                      CFC chemical model                  
    !!----------------------------------------------------------------------
 #  include "sms_cfc.h90"
 
+# endif
+
+#else
+   !!----------------------------------------------------------------------
+   !!  Empty module :                                     No passive tracer
+   !!----------------------------------------------------------------------
 #endif
 
-#else
    !!======================================================================
-   !!  Empty module : No passive tracer 
-   !!======================================================================
-#endif
-
 END MODULE sms