- Timestamp:
- 2012-01-25T11:03:39+01:00 (12 years ago)
- Location:
- branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/OPA_SRC/TRA
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/OPA_SRC/TRA/traqsr.F90
r3186 r3275 239 239 zz1 = ( 1. - rn_abs ) * ro0cpr 240 240 DO jk = 1, nksr ! solar heat absorbed at T-point in the top 400m 241 DO jj = 2, jpjm1242 DO ji = 2, jpim1241 DO jj = 1, jpj 242 DO ji = 1, jpi 243 243 zc0 = zz0 * EXP( -fsdepw(ji,jj,jk )*xsi0r ) + zz1 * EXP( -fsdepw(ji,jj,jk )*xsi1r ) 244 244 zc1 = zz0 * EXP( -fsdepw(ji,jj,jk+1)*xsi0r ) + zz1 * EXP( -fsdepw(ji,jj,jk+1)*xsi1r ) -
branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/OPA_SRC/TRA/trasbc.F90
r3186 r3275 164 164 165 165 IF( lk_vvl ) THEN ! Variable Volume case 166 DO jj = 2, jpj167 DO ji = fs_2, fs_jpim1 ! vector opt.166 DO jj = 1, jpj 167 DO ji = 1, jpi 168 168 ! temperature : heat flux + cooling/heating effet of EMP flux 169 169 sbc_tsc(ji,jj,jp_tem) = ro0cpr * qns(ji,jj) - zsrau * emp(ji,jj) * tsn(ji,jj,1,jp_tem)
Note: See TracChangeset
for help on using the changeset viewer.