New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Changeset 13652 for NEMO/branches/UKMO/NEMO_4.0.2_momentum_trends/src/OCE/DYN/dynspg.F90 – NEMO

Ignore:
Timestamp:
2020-10-21T14:37:33+02:00 (3 years ago)
Author:
cguiavarch
Message:

UKMO/NEMO_4.0.2_momentum_trends : code changes (equivalent to rev 13500 of NEMO 4.0.1 branch).

File:
1 edited

Legend:

Unmodified
Added
Removed
  • NEMO/branches/UKMO/NEMO_4.0.2_momentum_trends/src/OCE/DYN/dynspg.F90

    r12658 r13652  
    8181      IF( ln_timing )   CALL timing_start('dyn_spg') 
    8282      ! 
    83       IF( l_trddyn )   THEN                      ! temporary save of ta and sa trends 
     83      IF( l_trddyn .AND. nspg == np_EXP )   THEN                      ! temporary save of ta and sa trends 
    8484         ALLOCATE( ztrdu(jpi,jpj,jpk) , ztrdv(jpi,jpj,jpk) )  
    8585         ztrdu(:,:,:) = ua(:,:,:) 
     
    165165      END SELECT 
    166166      !                     
    167       IF( l_trddyn )   THEN                  ! save the surface pressure gradient trends for further diagnostics 
     167      IF( l_trddyn .AND. nspg == np_EXP )   THEN     ! save the surface pressure gradient trends for further diagnostics 
    168168         ztrdu(:,:,:) = ua(:,:,:) - ztrdu(:,:,:) 
    169169         ztrdv(:,:,:) = va(:,:,:) - ztrdv(:,:,:) 
    170170         CALL trd_dyn( ztrdu, ztrdv, jpdyn_spg, kt ) 
     171         ! In this case we also need to finalise the write-out of the PVO 3D diagnostic with zero correction 
     172         ztrdu(:,:,1) = 0._wp 
     173         ztrdv(:,:,1) = 0._wp 
     174         CALL trd_dyn( ztrdu(:,:,1), ztrdv(:,:,1), jpdyn_pvo, kt ) 
    171175         DEALLOCATE( ztrdu , ztrdv )  
    172176      ENDIF 
Note: See TracChangeset for help on using the changeset viewer.