Changeset 2715 for trunk/NEMOGCM/NEMO/OPA_SRC/TRA/trasbc.F90

Timestamp:

2011-03-30T17:58:35+02:00 (13 years ago)

Author:

rblod

Message:

First attempt to put dynamic allocation on the trunk

File:

• trunk/NEMOGCM/NEMO/OPA_SRC/TRA/trasbc.F90 (modified) (3 diffs)

trunk/NEMOGCM/NEMO/OPA_SRC/TRA/trasbc.F90

@@ -40 +40 @@
    !! NEMO/OPA 3.3 , NEMO Consortium (2010)
    !! $Id$
-   !! Software governed by the CeCILL licence (NEMOGCM/NEMO_CeCILL.txt)
-   !!----------------------------------------------------------------------
-
+   !! Software governed by the CeCILL licence     (NEMOGCM/NEMO_CeCILL.txt)
+   !!----------------------------------------------------------------------
 CONTAINS
 
@@ -210 +209 @@
                zdep = 1. / h_rnf(ji,jj)
                zdep = zfact * zdep  
-               IF ( rnf(ji,jj) .ne. 0.0 ) THEN
+               IF ( rnf(ji,jj) /= 0._wp ) THEN
                   DO jk = 1, nk_rnf(ji,jj)
                                         tsa(ji,jj,jk,jp_tem) = tsa(ji,jj,jk,jp_tem)   &
@@ -216 +215 @@
                      IF( ln_rnf_sal )   tsa(ji,jj,jk,jp_sal) = tsa(ji,jj,jk,jp_sal)   &
                                           &               +  ( rnf_tsc_b(ji,jj,jp_sal) + rnf_tsc(ji,jj,jp_sal) ) * zdep 
-                  ENDDO
+                  END DO
                ENDIF
-            ENDDO  
-         ENDDO  
+            END DO  
+         END DO  
       ENDIF  
 !!gm  It should be useless