Ignore:
Timestamp:
2015-05-28T12:05:28+02:00 (6 years ago)
Author:
pabouttier
Message:

Fix bugs in eos perturbations

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/2015/dev_r5177_CNRS4_stopar/NEMOGCM/NEMO/OPA_SRC/stopts.F90

    r5296 r5304  
    2020 
    2121   PUBLIC   sto_pts         ! called by step.F90 
    22    PUBLIC   sto_pts_init    ! called by nemogcm.F90  
     22   PUBLIC   sto_pts_init    ! called by nemogcm.F90 
    2323 
    2424   ! Public array with random tracer fluctuations 
     
    3737      !!---------------------------------------------------------------------- 
    3838      !!                  ***  ROUTINE sto_pts  *** 
    39       !!            
     39      !! 
    4040      !! ** Purpose :   Compute current stochastic tracer fluctuations 
    4141      !! 
     
    8484!                          & zdtskp * MAX(sto2d(ji,jj,jsto_eosk),0._wp) + & 
    8585!                          & zdtskm * MIN(sto2d(ji,jj,jsto_eosk),0._wp) 
    86                     zdts   = zdts  * tmask(ji,jj,jk) *SIN( 2._wp * gphit(ji,jj) * rad ) 
     86                    zdts   = zdts  * tmask(ji,jj,jk) *SIN( gphit(ji,jj) * rad ) 
    8787                    pts_ran(ji,jj,jk,jts,jdof) = zdts * 0.5_wp 
    8888                    ! 
     
    133133      !!---------------------------------------------------------------------- 
    134134      !!                  ***  ROUTINE sto_pts_init  *** 
    135       !!            
     135      !! 
    136136      !! ** Purpose :   Initialisation for stochastic tracer fluctuations 
    137137      !! 
Note: See TracChangeset for help on using the changeset viewer.