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 4587 for branches/2012 – NEMO

Changeset 4587 for branches/2012


Ignore:
Timestamp:
2014-03-26T11:15:51+01:00 (10 years ago)
Author:
pabouttier
Message:

Add a parameter in sol_oce_tam to avoid modifying solsor_tam iteration number by adjoint test, see Ticket #1280

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/2012/dev_v3_4_STABLE_2012/NEMOGCM/NEMO/OPATAM_SRC/SOL/sol_oce_tam.F90

    r4531 r4587  
    3939   LOGICAL, PRIVATE, SAVE :: ll_alloctl = .FALSE., ll_allocad = .FALSE. 
    4040 
     41   INTEGER, PARAMETER,  PUBLIC :: & 
     42#if defined key_orca_r2  ||   defined key_seabass  ||   defined key_gyre 
     43      & jp_it0adj = 300 ! initial value of the number of solver iteration (adj) 
     44#else 
     45      & jp_it0adj = 1000 ! initial value of the number of solver iteration (adj) 
     46#endif 
     47 
    4148   !!---------------------------------------------------------------------- 
    4249   !! NEMO/OPA 3.3 , NEMO Consortium (2010) 
     
    6269      IF ( .NOT. ALLOCATED(nitsor) ) THEN 
    6370      ALLOCATE( nitsor(nitend - nit000 + 1) , STAT=ierr(1) ) 
    64       nitsor(:) = nn_nmin 
     71      nitsor(:) = jp_it0adj 
    6572      END IF 
    6673      IF ( ( imode == 0 ) .OR. ( imode == 1 ) .AND. ( .NOT. ll_alloctl ) ) THEN  
Note: See TracChangeset for help on using the changeset viewer.