- Timestamp:
- 2011-03-15T16:27:46+01:00 (13 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/OPA_SRC/OBC/obcfla.F90
r2618 r2690 8 8 !! 4.0 ! 2011-02 (G. Madec) velocity & ssh passed in argument 9 9 !!---------------------------------------------------------------------- 10 #if defined key_obc &&defined key_dynspg_ts10 #if defined key_obc && defined key_dynspg_ts 11 11 !!---------------------------------------------------------------------- 12 12 !! 'key_obc' and Open Boundary Condition … … 75 75 REAL(wp), DIMENSION(jpi,jpj), INTENT(inout) :: p_sshn, p_ssha ! before, now, after sea surface height 76 76 ! 77 INTEGER :: ji, jj ! dummy loop indices77 INTEGER :: ji, jj ! dummy loop indices 78 78 !!---------------------------------------------------------------------- 79 79 ! … … 106 106 REAL(wp), DIMENSION(jpi,jpj), INTENT(inout) :: p_sshn, p_ssha ! before, now, after sea surface height 107 107 ! 108 INTEGER :: ji, jj ! dummy loop indices108 INTEGER :: ji, jj ! dummy loop indices 109 109 !!---------------------------------------------------------------------- 110 110 ! … … 133 133 REAL(wp), DIMENSION(jpi,jpj), INTENT(inout) :: p_sshn, p_ssha ! before, now, after sea surface height 134 134 ! 135 INTEGER :: ji, jj ! dummy loop indices135 INTEGER :: ji, jj ! dummy loop indices 136 136 !!---------------------------------------------------------------------- 137 137 ! … … 164 164 REAL(wp), DIMENSION(jpi,jpj), INTENT(inout) :: p_sshn, p_ssha ! before, now, after sea surface height 165 165 ! 166 INTEGER :: ji, jj ! dummy loop indices166 INTEGER :: ji, jj ! dummy loop indices 167 167 !!---------------------------------------------------------------------- 168 168 ! … … 185 185 !!---------------------------------------------------------------------- 186 186 CONTAINS 187 188 187 SUBROUTINE obc_fla_ts( pua, pva, p_sshn, p_ssha ) 189 188 REAL, DIMENSION(:,:):: pua, pva, p_sshn, p_ssha
Note: See TracChangeset
for help on using the changeset viewer.