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 2587 for branches/TAM_V3_0/NEMOTAM/OPATAM_SRC/cla_dynspg_tam.F90 – NEMO

Ignore:
Timestamp:
2011-02-15T12:58:59+01:00 (13 years ago)
Author:
vidard
Message:

refer to ticket #798

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/TAM_V3_0/NEMOTAM/OPATAM_SRC/cla_dynspg_tam.F90

    r1885 r2587  
    3131      & lwp,                 & 
    3232      & numout,              &   
    33       & nit000 
     33      & nit000,              & 
     34      & nitend 
    3435   USE dom_oce       , ONLY: & ! Ocean space and time domain 
    3536      & mi0,                 & 
     
    330331      ! Control print 
    331332      ! ------------- 
    332       IF( kt == nit000 ) THEN  
     333      IF( kt == nitend ) THEN  
    333334         IF(lwp) WRITE(numout,*) 
    334335         IF(lwp) WRITE(numout,*) 'cla_dynspg_adj : cross land advection on surface ' 
     
    486487      ! we convert in m3 
    487488      zempmed = zempmed * 1.e-3_wp 
    488  
    489 !!!! AW: Adjoint of this???? 
    490       IF( lk_mpp )   CALL mpp_sum( zempmed )      ! sum with other processors value 
    491489 
    492490      ! minus 2 points in Red Sea and 3 in Atlantic  
     
    504502      END DO 
    505503 
     504      IF( lk_mpp )   CALL mpp_sum( zempmed )      ! sum with other processors value 
     505 
    506506      ! compute the emp in Mediterranean Sea 
    507507      ij0 =  96   ;   ij1 = 110 
Note: See TracChangeset for help on using the changeset viewer.