Changeset 6123


Ignore:
Timestamp:
2015-12-18T13:44:15+01:00 (5 years ago)
Author:
pabouttier
Message:

Reorganize stochastic param. calls in step; See Ticket #1656

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/2015/dev_r5918_nemo_v3_6_STABLE_XIOS2/NEMOGCM/NEMO/OPA_SRC/step.F90

    r5510 r6123  
    110110      ! Update stochastic parameters and random T/S fluctuations 
    111111      !>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 
    112                         CALL sto_par( kstp )          ! Stochastic parameters 
     112       IF( ln_sto_eos ) CALL sto_par( kstp )          ! Stochastic parameters 
     113       IF( ln_sto_eos ) CALL sto_pts( tsn  )          ! Random T/S fluctuations 
    113114 
    114115      !>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 
     
    152153      ! 
    153154      IF( lk_ldfslp ) THEN                            ! slope of lateral mixing 
    154          IF(ln_sto_eos ) CALL sto_pts( tsn )          ! Random T/S fluctuations 
    155155                         CALL eos( tsb, rhd, gdept_0(:,:,:) )               ! before in situ density 
    156156         IF( ln_zps .AND. .NOT. ln_isfcav)                               & 
     
    188188          ! Note that the computation of vertical velocity above, hence "after" sea level 
    189189          ! is necessary to compute momentum advection for the rhs of barotropic loop: 
    190             IF(ln_sto_eos ) CALL sto_pts( tsn )                             ! Random T/S fluctuations 
    191190                            CALL eos    ( tsn, rhd, rhop, fsdept_n(:,:,:) ) ! now in situ density for hpg computation 
    192191            IF( ln_zps .AND. .NOT. ln_isfcav)                               & 
     
    270269         IF( ln_zdfnpc   )   CALL tra_npc( kstp )                ! update after fields by non-penetrative convection 
    271270                             CALL tra_nxt( kstp )                ! tracer fields at next time step 
    272             IF( ln_sto_eos ) CALL sto_pts( tsn )                 ! Random T/S fluctuations 
    273271                             CALL eos    ( tsa, rhd, rhop, fsdept_n(:,:,:) )  ! Time-filtered in situ density for hpg computation 
    274272            IF( ln_zps .AND. .NOT. ln_isfcav)                                & 
     
    281279      ELSE                                                  ! centered hpg  (eos then time stepping) 
    282280         IF ( .NOT. lk_dynspg_ts ) THEN                     ! eos already called in time-split case 
    283             IF( ln_sto_eos ) CALL sto_pts( tsn )    ! Random T/S fluctuations 
    284281                             CALL eos    ( tsn, rhd, rhop, fsdept_n(:,:,:) )  ! now in situ density for hpg computation 
    285282         IF( ln_zps .AND. .NOT. ln_isfcav)                                   & 
Note: See TracChangeset for help on using the changeset viewer.