- Timestamp:
- 2018-12-14T11:55:21+01:00 (5 years ago)
- Location:
- NEMO/branches/2018/dev_r10164_HPC09_ESIWACE_PREP_MERGE/src/OCE
- Files:
-
- 3 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2018/dev_r10164_HPC09_ESIWACE_PREP_MERGE/src/OCE/DYN/dynspg_ts.F90
r10345 r10386 711 711 DO jn = 1, icycle ! sub-time-step loop ! 712 712 ! ! ==================== ! 713 ! 714 l_full_nf_update = jn == icycle ! false: disable full North fold update (performances) for jn = 1 to icycle-1 715 ! ! ------------------ 713 716 ! !* Update the forcing (BDY and tides) 714 717 ! ! ------------------ -
NEMO/branches/2018/dev_r10164_HPC09_ESIWACE_PREP_MERGE/src/OCE/LBC/lib_mpp.F90
r10368 r10386 163 163 INTEGER, PUBLIC :: n_sequence_glb = 0 !: # of global communications 164 164 INTEGER, PUBLIC :: numcom = -1 !: logical unit for communicaton report 165 LOGICAL, PUBLIC :: l_full_nf_update = . FALSE.!: logical for a full (2lines) update of bc at North fold report165 LOGICAL, PUBLIC :: l_full_nf_update = .TRUE. !: logical for a full (2lines) update of bc at North fold report 166 166 INTEGER, PARAMETER, PUBLIC :: nbdelay = 1 !: number of delayed operations 167 167 !$AGRIF_DO_NOT_TREAT -
NEMO/branches/2018/dev_r10164_HPC09_ESIWACE_PREP_MERGE/src/OCE/SBC/cpl_oasis3.F90
r10337 r10386 455 455 !--- check periodicity conditions (all cases) 456 456 IF( .not. llfisrt ) THEN 457 l_full_nf_update = .TRUE. ! enable full North fold update458 457 CALL lbc_lnk( 'cpl_oasis3', pdata(:,:,jc), srcv(kid)%clgrid, srcv(kid)%nsgn ) 459 l_full_nf_update = .FALSE. ! disable full North fold update (performances)460 458 ENDIF 461 459
Note: See TracChangeset
for help on using the changeset viewer.