Changeset 4587
- Timestamp:
- 2014-03-26T11:15:51+01:00 (10 years ago)
- 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 39 39 LOGICAL, PRIVATE, SAVE :: ll_alloctl = .FALSE., ll_allocad = .FALSE. 40 40 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 41 48 !!---------------------------------------------------------------------- 42 49 !! NEMO/OPA 3.3 , NEMO Consortium (2010) … … 62 69 IF ( .NOT. ALLOCATED(nitsor) ) THEN 63 70 ALLOCATE( nitsor(nitend - nit000 + 1) , STAT=ierr(1) ) 64 nitsor(:) = nn_nmin71 nitsor(:) = jp_it0adj 65 72 END IF 66 73 IF ( ( imode == 0 ) .OR. ( imode == 1 ) .AND. ( .NOT. ll_alloctl ) ) THEN
Note: See TracChangeset
for help on using the changeset viewer.