Changeset 3862 for branches/2013/dev_r3858_NOC_ZTC/NEMOGCM/NEMO/OPA_SRC/DOM/domstp.F90

Timestamp:

2013-04-08T13:07:43+02:00 (11 years ago)

Author:

acc

Message:

Branch 2013/dev_r3858_NOC_ZTC #863. Change names of gdept_0, gdepw_0, e3t_0, e3w_0 to gdept_1d, gdepw_1d, e3t_1d, e3w_1d respectively in preparation for the introduction of time invariant 3d arrays using the _0 suffix

File:

• branches/2013/dev_r3858_NOC_ZTC/NEMOGCM/NEMO/OPA_SRC/DOM/domstp.F90 (modified) (1 diff)

branches/2013/dev_r3858_NOC_ZTC/NEMOGCM/NEMO/OPA_SRC/DOM/domstp.F90

@@ -90 +90 @@
 
             DO jk = 1, jpk
-               IF( gdept_0(jk) <= rdth ) rdttra(jk) = rdtmin
-               IF( gdept_0(jk) >  rdth ) THEN
+               IF( gdept_1d(jk) <= rdth ) rdttra(jk) = rdtmin
+               IF( gdept_1d(jk) >  rdth ) THEN
                   rdttra(jk) = rdtmin + ( rdtmax - rdtmin )   &
-                                      * ( EXP( ( gdept_0(jk ) - rdth ) / rdth ) - 1. )   &
-                                      / ( EXP( ( gdept_0(jpk) - rdth ) / rdth ) - 1. )
+                                      * ( EXP( ( gdept_1d(jk ) - rdth ) / rdth ) - 1. )   &
+                                      / ( EXP( ( gdept_1d(jpk) - rdth ) / rdth ) - 1. )
                ENDIF
                IF(lwp) WRITE(numout,"(36x,f5.2,5x,i3)") rdttra(jk)/3600., jk