Changeset 85 for trunk/NEMO
- Timestamp:
- 2004-04-22T15:35:07+02:00 (20 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMO/OPA_SRC/SOL/solmat.F90
r16 r85 94 94 95 95 #if defined key_dynspg_fsc && ! defined key_obc 96 !!cr IF( lk_dynspg_fsc .AND. .NOT.lk_obc ) THEN 96 !!cr IF( lk_dynspg_fsc .AND. .NOT.lk_obc ) THEN !bug missing lk_dynspg_fsc_atsk 97 97 98 98 ! defined the coefficients for free surface elliptic system … … 115 115 116 116 # elif defined key_dynspg_fsc && defined key_obc 117 !!cr ELSEIF( lk_dynspg_fsc .AND. lk_obc ) THEN 117 !!cr ELSEIF( lk_dynspg_fsc .AND. lk_obc ) THEN !bug missing lk_dynspg_fsc_atsk 118 118 119 119 ! defined gcdmat in the case of open boundaries … … 123 123 zcoef = z2dt * z2dt * grav * rnu * bmask(ji,jj) 124 124 ! south coefficient 125 IF( ( lpsouthobc ).AND. ( jj == njs0p1 ) ) THEN125 IF( lp_obc_south .AND. ( jj == njs0p1 ) ) THEN 126 126 zcoefs = -zcoef * hv(ji,jj-1) * e1v(ji,jj-1)/e2v(ji,jj-1)*(1.-vsmsk(ji,1)) 127 127 ELSE … … 131 131 132 132 ! west coefficient 133 IF( ( lpwestobc ).AND. ( ji == niw0p1 ) ) THEN133 IF( lp_obc_west .AND. ( ji == niw0p1 ) ) THEN 134 134 zcoefw = -zcoef * hu(ji-1,jj) * e2u(ji-1,jj)/e1u(ji-1,jj)*(1.-uwmsk(jj,1)) 135 135 ELSE … … 139 139 140 140 ! east coefficient 141 IF( ( lpeastobc ).AND. ( ji == nie0 ) ) THEN141 IF( lp_obc_east .AND. ( ji == nie0 ) ) THEN 142 142 zcoefe = -zcoef * hu(ji,jj) * e2u(ji,jj)/e1u(ji,jj)*(1.-uemsk(jj,1)) 143 143 ELSE … … 147 147 148 148 ! north coefficient 149 IF( ( lpnorthobc ).AND. ( jj == njn0 ) ) THEN149 IF( lp_obc_north .AND. ( jj == njn0 ) ) THEN 150 150 zcoefn = -zcoef * hv(ji,jj) * e1v(ji,jj)/e2v(ji,jj)*(1.-vnmsk(ji,1)) 151 151 ELSE … … 197 197 ! account for the existence of the south symmetric bassin. 198 198 199 !!cr IF( .NOT.lk_dynspg_fsc ) THEN 199 !!cr IF( .NOT.lk_dynspg_fsc ) THEN !bug missing lk_dynspg_fsc_atsk 200 200 #if ! defined key_dynspg_fsc 201 201 IF( nperio == 2 ) THEN
Note: See TracChangeset
for help on using the changeset viewer.