Changeset 763 for branches/dev_001_GM/NEMO/TOP_SRC/trcini.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/trcini.F90 (modified) (7 diffs)

branches/dev_001_GM/NEMO/TOP_SRC/trcini.F90

@@ -1 +1 @@
 MODULE trcini
-   !!==========================================================================
-   !!                       *** MODULE trcini ***  
-   !! Ocean passive tracers:  Manage the passive tracer initialization 
-   !!=========================================================================   
+   !!======================================================================
+   !!                         ***  MODULE trcini  ***
+   !! TOP :   Manage the passive tracer initialization
+   !!======================================================================
+   !! History :    -   !  2000-04  (O. Aumont, M.A. Foujols)  original code
+   !!             1.0  !  2005-03  (O. Aumont, A. El Moussaoui) F90
+   !!              -   !  2005-10  (C. Ethe) Module
+   !!----------------------------------------------------------------------
 #if defined key_passivetrc
    !!----------------------------------------------------------------------
-   !!   trc_ini : Initialization for passive tracer
+   !!   'key_passivetrc'                                    Passive tracers
    !!----------------------------------------------------------------------
+   !!   trc_ini :   Initialization for passive tracer
    !!----------------------------------------------------------------------
-   !!  TOP 1.0,  LOCEAN-IPSL (2005) 
-   !! $Header$ 
-   !! This software is governed by the CeCILL licence see modipsl/doc/NEMO_CeCILL.txt 
-   !!----------------------------------------------------------------------
-   !! * Modules used
    USE oce_trc
    USE trc
@@ -23 +23 @@
    PRIVATE
 
-   !! * Accessibility
-   PUBLIC trc_ini
+   PUBLIC   trc_ini   ! called by ???
 
-#if defined key_trc_lobster1
+# if defined key_trc_lobster1
    !!----------------------------------------------------------------------
    !!   'key_trc_lobster1'                        LOBSTER1 biological model  
@@ -32 +31 @@
 #  include "trcini.lobster1.h90"
 
-#elif defined key_trc_pisces
+# elif defined key_trc_pisces
    !!----------------------------------------------------------------------
    !!   'key_trc_pisces'                            PISCES biological model                  
@@ -38 +37 @@
 #  include "trcini.pisces.h90"
 
-#elif defined key_cfc
+# elif defined key_cfc
    !!----------------------------------------------------------------------
    !!   'key_cfc  '                                          CFC model                  
@@ -44 +43 @@
 #  include "trcini.cfc.h90"
 
-#else
+# else
    !!----------------------------------------------------------------------
    !!   Default option                               
+   !!----------------------------------------------------------------------
+   !!----------------------------------------------------------------------
+   !! NEMO/TOP 2.0 , LOCEAN-IPSL (2007) 
+   !! $Header:$ 
+   !! Software governed by the CeCILL licence (modipsl/doc/NEMO_CeCILL.txt)
    !!----------------------------------------------------------------------
 
@@ -52 +56 @@
 
    SUBROUTINE trc_ini
-      !!---------------------------------------------------------------------
+      !!-------------------------------------------------------------------
       !!                    ***  ROUTINE trc_ini  ***
       !!              
-      !! ** Purpose : Initialization for passive tracer
-      !!              for restart or not
-      !!
-      !! History :
-      !!        !  00-04  O. Aumont, M.A. Foujols HAMOCC3 and P3ZD
-      !!   8.5  !  05-03  O.Aumont and A.El Moussaoui  F90
-      !!   9.0  !  05-10  C. Ethe  Modularity
-      !!----------------------------------------------------------------------
-      !! * local declarations
-      INTEGER ::                   & 
-         ji ,jj ,jk ,jn, jl        ! dummy loop indices  
-      !!---------------------------------------------------------------------
+      !! ** Purpose :   Initialization of all passive tracer to zero
+      !!              (default case)
+      !!-------------------------------------------------------------------
+      INTEGER ::   ji ,jj ,jk ,jn, jl        ! dummy loop indices  
+      !!-------------------------------------------------------------------
 
+      IF(lwp) WRITE(numout,*)
+      IF(lwp) WRITE(numout,*) 'trc_ini : initial set up of the passive tracers'
+      IF(lwp) WRITE(numout,*) '~~~~~~~'
 
-      !! 1. initialization of passives tracers field
-      !! -------------------------------------------
+      ! initialization of passives tracers field
+      ! ----------------------------------------
       DO jn = 1, jptra
-         trn(:,:,:,jn)=0.e0
-         tra(:,:,:,jn)=0.e0
+         trn(:,:,:,jn) = 0.e0
+         tra(:,:,:,jn) = 0.e0
       END DO
 
-#if defined key_trc_diaadd
-      !! initialization of output 2d and 3d arrays
+#  if defined key_trc_diaadd
+      ! initialization of output 2d and 3d arrays
+      DO jn = 1, jpdia2d
+         trc2d(:,:,jn) = 0.e0
+      END DO
+      DO jn = 1, jpdia3d
+         trc3d(:,:,:,jn) = 0.e0
+      END DO
+#  endif
 
-      DO jn = 1, jpdia2d
-         trc2d(:,:,jn)=0.e0
-      END DO
-
-      DO jn = 1, jpdia3d
-         trc3d(:,:,:,jn)=0.e0
-      END DO
-#endif
-
-#if defined key_trc_diabio
-      !! initialization of biological trends
-      DO jn=1,jpdiabio
+#  if defined key_trc_diabio
+      ! initialization of biological trends
+      DO jn = 1, jpdiabio
          trbio(:,:,:,jn) = 0.e0
       END DO
-#endif
+#  endif
 
-#if defined key_trc_diatrd
-      !! initialization of tracer trends
+#  if defined key_trc_diatrd
+      ! initialization of tracer trends
       DO jl = 1, jpdiatrc
          DO jn = 1, jptra
-            IF (luttrd(jn)) trtrd(:,:,:,ikeep(jn),jl) = 0.e0
+            IF( luttrd(jn) )   trtrd(:,:,:,ikeep(jn),jl) = 0.e0
          END DO
       END DO
-#endif      
-
-      IF( lwp ) THEN
-         WRITE(numout,*) ' '
-         WRITE(numout,*) ' trcini: generic initialisation done '
-         WRITE(numout,*) ' '
-      ENDIF
-
+#  endif      
+      !
    END SUBROUTINE trc_ini
 
-#endif
+# endif
 
 #else
@@ -120 +112 @@
 CONTAINS
    SUBROUTINE trc_ini              ! Empty routine
-
    END SUBROUTINE trc_ini
 #endif