Changeset 2399 for branches/nemo_v3_3_beta/NEMOGCM/NEMO/OPA_SRC/TRA/traldf_iso_grif.F90

Timestamp:

2010-11-17T10:09:35+01:00 (13 years ago)

Author:

gm

Message:

v3.3beta: diaptr (poleward heat & salt transports) #759 : rewriting including dynamical allocation + DOCTOR names

File:

• branches/nemo_v3_3_beta/NEMOGCM/NEMO/OPA_SRC/TRA/traldf_iso_grif.F90 (modified) (2 diffs)

branches/nemo_v3_3_beta/NEMOGCM/NEMO/OPA_SRC/TRA/traldf_iso_grif.F90

@@ -47 +47 @@
    !! 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
 
-  SUBROUTINE tra_ldf_iso_grif( kt, cdtype, pgu, pgv,  &
-       &                                ptb, pta, kjpt, pahtb0 )
+  SUBROUTINE tra_ldf_iso_grif( kt, cdtype, pgu, pgv,              &
+       &                                   ptb, pta, kjpt, pahtb0 )
     !!----------------------------------------------------------------------
     !!                  ***  ROUTINE tra_ldf_iso_grif  ***
@@ -316 +315 @@
        !
        !                            ! "Poleward" diffusive heat or salt transports (T-S case only)
-       IF( cdtype == 'TRA' .AND. ln_diaptr .AND. ( MOD( kt, nf_ptr ) == 0 ) ) THEN
-         IF( jn == jp_tem)   pht_ldf(:) = ptr_vj( zftv(:,:,:) )        ! 3.3  names
-         IF( jn == jp_sal)   pst_ldf(:) = ptr_vj( zftv(:,:,:) )
+       IF( cdtype == 'TRA' .AND. ln_diaptr .AND. ( MOD( kt, nn_fptr ) == 0 ) ) THEN
+         IF( jn == jp_tem)   htr_ldf(:) = ptr_vj( zftv(:,:,:) )        ! 3.3  names
+         IF( jn == jp_sal)   str_ldf(:) = ptr_vj( zftv(:,:,:) )
        ENDIF