Ignore:
Timestamp:
2019-08-29T14:07:48+02:00 (2 years ago)
Author:
davestorkey
Message:

2019/dev_r10721_KERNEL-02_Storkey_Coward_IMMERSE_first_steps : Update more header comments and change logs.
Also remove debugging output from trcstp.F90 and correct bug in step_c1d.F90. Note C1D untested in this branch.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • NEMO/branches/2019/dev_r10721_KERNEL-02_Storkey_Coward_IMMERSE_first_steps/src/TOP/TRP/trcatf.F90

    r11480 r11483  
    1919   !!            3.1  !  2009-02  (G. Madec, R. Benshila)  re-introduce the vvl option 
    2020   !!            3.3  !  2010-06  (C. Ethe, G. Madec) Merge TRA-TRC 
     21   !!            4.1  !  2019-08  (A. Coward, D. Storkey) rename trcnxt.F90 -> trcatf.F90. Now only does time filtering. 
    2122   !!---------------------------------------------------------------------- 
    2223#if defined key_top 
     
    5859      !!                   ***  ROUTINE trcatf  *** 
    5960      !! 
    60       !!        !!!!!!!!!!!!!!!! REWRITE HEADER COMMENTS !!!!!!!!!!!!!! 
    61       !! 
    62       !! ** Purpose :   Compute the passive tracers fields at the  
    63       !!      next time-step from their temporal trends and swap the fields. 
     61      !! ** Purpose :   Apply the boundary condition on the after passive tracers fields and 
     62      !!      apply Asselin time filter to the now passive tracer fields if using leapfrog timestep 
    6463      !!  
    6564      !! ** Method  :   Apply lateral boundary conditions on (uu(Kaa),vv(Kaa)) through  
    6665      !!      call to lbc_lnk routine 
    67       !!   default: 
    68       !!      arrays swap 
    69       !!         (tr(Kmm)) = (tr(Kaa)) ; (tr(Kaa)) = (0,0) 
    70       !!         (tr(Kbb)) = (tr(Kmm))  
    7166      !! 
    7267      !!   For Arakawa or TVD Scheme :  
    73       !!      A Asselin time filter applied on now tracers (tr(:,:,:,:,Kmm)) to avoid 
     68      !!      A Asselin time filter applied on now tracers tr(Kmm) to avoid 
    7469      !!      the divergence of two consecutive time-steps and tr arrays 
    7570      !!      to prepare the next time_step: 
    76       !!         (tr(Kbb)) = (tr(Kmm)) + atfp [ (tr(Kbb)) + (tr(Kaa)) - 2 (tr(Kmm)) ] 
    77       !!         (tr(Kmm)) = (tr(Kaa)) ; (tr(Kaa)) = (0,0) 
    78       !! 
    79       !! 
    80       !! ** Action  : - update tr(Kbb), tr(Kmm) 
     71      !!         (tr(Kmm)) = (tr(Kmm)) + atfp [ (tr(Kbb)) + (tr(Kaa)) - 2 (tr(Kmm)) ] 
     72      !! 
     73      !! 
     74      !! ** Action  : - update tr(Kmm), tr(Kaa) 
    8175      !!---------------------------------------------------------------------- 
    8276      INTEGER                                   , INTENT( in )  :: kt             ! ocean time-step index 
Note: See TracChangeset for help on using the changeset viewer.