Changeset 5120 for trunk/NEMOGCM/NEMO/OPA_SRC/DIA/diaar5.F90
- Timestamp:
- 2015-03-03T17:11:55+01:00 (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMOGCM/NEMO/OPA_SRC/DIA/diaar5.F90
r5107 r5120 103 103 END DO 104 104 IF( .NOT.lk_vvl ) THEN 105 DO ji=1,jpi 106 DO jj=1,jpj 107 zbotpres(ji,jj) = zbotpres(ji,jj) + sshn(ji,jj) * zrhd(ji,jj,mikt(ji,jj)) + riceload(ji,jj) 108 END DO 109 END DO 105 IF ( ln_isfcav ) THEN 106 DO ji=1,jpi 107 DO jj=1,jpj 108 zbotpres(ji,jj) = zbotpres(ji,jj) + sshn(ji,jj) * zrhd(ji,jj,mikt(ji,jj)) + riceload(ji,jj) 109 END DO 110 END DO 111 ELSE 112 zbotpres(:,:) = zbotpres(:,:) + sshn(:,:) * zrhd(:,:,1) 113 END IF 110 114 END IF 111 115 ! … … 125 129 END DO 126 130 IF( .NOT.lk_vvl ) THEN 127 DO ji=1,jpi 128 DO jj=1,jpj 129 zbotpres(ji,jj) = zbotpres(ji,jj) + sshn(ji,jj) * zrhd(ji,jj,mikt(ji,jj)) + riceload(ji,jj) 130 END DO 131 END DO 131 IF ( ln_isfcav ) THEN 132 DO ji=1,jpi 133 DO jj=1,jpj 134 zbotpres(ji,jj) = zbotpres(ji,jj) + sshn(ji,jj) * zrhd(ji,jj,mikt(ji,jj)) + riceload(ji,jj) 135 END DO 136 END DO 137 ELSE 138 zbotpres(:,:) = zbotpres(:,:) + sshn(:,:) * zrhd(:,:,1) 139 END IF 132 140 END IF 133 141 ! … … 155 163 END DO 156 164 IF( .NOT.lk_vvl ) THEN 157 DO ji=1,jpi 158 DO jj=1,jpj 159 ztemp = ztemp + zarea_ssh(ji,jj) * tsn(ji,jj,mikt(ji,jj),jp_tem) 160 zsal = zsal + zarea_ssh(ji,jj) * tsn(ji,jj,mikt(ji,jj),jp_sal) 161 END DO 162 END DO 165 IF ( ln_isfcav ) THEN 166 DO ji=1,jpi 167 DO jj=1,jpj 168 ztemp = ztemp + zarea_ssh(ji,jj) * tsn(ji,jj,mikt(ji,jj),jp_tem) 169 zsal = zsal + zarea_ssh(ji,jj) * tsn(ji,jj,mikt(ji,jj),jp_sal) 170 END DO 171 END DO 172 ELSE 173 ztemp = ztemp + zarea_ssh(:,:) * tsn(:,:,1,jp_tem) 174 zsal = zsal + zarea_ssh(:,:) * tsn(:,:,1,jp_sal) 175 END IF 163 176 ENDIF 164 177 IF( lk_mpp ) THEN
Note: See TracChangeset
for help on using the changeset viewer.