- Timestamp:
- 2012-11-19T16:51:17+01:00 (12 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2012/dev_NOC_2012_rev3555/NEMOGCM/NEMO/OPA_SRC/SOL/solsor.F90
r3294 r3609 81 81 ! ! ============== 82 82 83 IF( MOD(icount,ijpr2d+1) == 0 ) CALL lbc_lnk_e( gcx, c_solver_pt, 1. ) ! lateral boundary conditions83 IF( MOD(icount,ijpr2d+1) == 0 ) CALL lbc_lnk_e( gcx, c_solver_pt, 1., jpr2di, jpr2dj ) ! lateral boundary conditions 84 84 85 85 ! Residus … … 104 104 icount = icount + 1 105 105 106 IF( MOD(icount,ijpr2d+1) == 0 ) CALL lbc_lnk_e( gcx, c_solver_pt, 1. ) ! lateral boundary conditions106 IF( MOD(icount,ijpr2d+1) == 0 ) CALL lbc_lnk_e( gcx, c_solver_pt, 1., jpr2di, jpr2dj ) ! lateral boundary conditions 107 107 108 108 ! Guess red update … … 167 167 ! Output in gcx 168 168 ! ------------- 169 CALL lbc_lnk_e( gcx, c_solver_pt, 1. ) ! boundary conditions169 CALL lbc_lnk_e( gcx, c_solver_pt, 1._wp, jpr2di, jpr2dj ) ! boundary conditions 170 170 ! 171 171 CALL wrk_dealloc( jpi, jpj, ztab )
Note: See TracChangeset
for help on using the changeset viewer.