Changeset 5304 for branches/2015/dev_r5177_CNRS4_stopar/NEMOGCM/NEMO/OPA_SRC/stopts.F90

Timestamp:

2015-05-28T12:05:28+02:00 (9 years ago)

Author:

pabouttier

Message:

Fix bugs in eos perturbations

File:

• branches/2015/dev_r5177_CNRS4_stopar/NEMOGCM/NEMO/OPA_SRC/stopts.F90 (modified) (4 diffs)

branches/2015/dev_r5177_CNRS4_stopar/NEMOGCM/NEMO/OPA_SRC/stopts.F90

@@ -20 +20 @@
 
    PUBLIC   sto_pts         ! called by step.F90
-   PUBLIC   sto_pts_init    ! called by nemogcm.F90 
+   PUBLIC   sto_pts_init    ! called by nemogcm.F90
 
    ! Public array with random tracer fluctuations
@@ -37 +37 @@
       !!----------------------------------------------------------------------
       !!                  ***  ROUTINE sto_pts  ***
-      !!           
+      !!
       !! ** Purpose :   Compute current stochastic tracer fluctuations
       !!
@@ -84 +84 @@
 !                          & zdtskp * MAX(sto2d(ji,jj,jsto_eosk),0._wp) + &
 !                          & zdtskm * MIN(sto2d(ji,jj,jsto_eosk),0._wp)
-                    zdts   = zdts  * tmask(ji,jj,jk) *SIN( 2._wp * gphit(ji,jj) * rad )
+                    zdts   = zdts  * tmask(ji,jj,jk) *SIN( gphit(ji,jj) * rad )
                     pts_ran(ji,jj,jk,jts,jdof) = zdts * 0.5_wp
                     !
@@ -133 +133 @@
       !!----------------------------------------------------------------------
       !!                  ***  ROUTINE sto_pts_init  ***
-      !!           
+      !!
       !! ** Purpose :   Initialisation for stochastic tracer fluctuations
       !!