Changeset 888 for trunk/NEMO/LIM_SRC_3/limwri_dimg.h90
- Timestamp:
- 2008-04-11T19:05:03+02:00 (16 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMO/LIM_SRC_3/limwri_dimg.h90
r825 r888 2 2 !!---------------------------------------------------------------------- 3 3 !! LIM 2.0, UCL-LOCEAN-IPSL (2005) 4 !! $ Header: /home/opalod/NEMOCVSROOT/NEMO/LIM_SRC/limwri_dimg.h90,v 1.2 2005/03/27 18:34:42 opalod Exp$4 !! $ Id: $ 5 5 !! This software is governed by the CeCILL licence see modipsl/doc/NEMO_CeCILL.txt 6 6 !!---------------------------------------------------------------------- … … 80 80 81 81 zsto = rdt_ice 82 zout = nwrite * rdt_ice / n fice82 zout = nwrite * rdt_ice / nn_fsbc 83 83 zsec = 0. 84 84 niter = 0 … … 111 111 + v_ice(ji,jj+1) * tmu(ji,jj+1) + v_ice(ji+1,jj+1) * tmu(ji+1,jj+1) ) & 112 112 / ztmu 113 zcmo(ji,jj,9) = sst_ io(ji,jj)114 zcmo(ji,jj,10) = sss_ io(ji,jj)115 116 zcmo(ji,jj,11) = fnsolar(ji,jj) + fsolar(ji,jj)117 zcmo(ji,jj,12) = fsolar(ji,jj)118 zcmo(ji,jj,13) = fnsolar(ji,jj)113 zcmo(ji,jj,9) = sst_m(ji,jj) 114 zcmo(ji,jj,10) = sss_m(ji,jj) 115 116 zcmo(ji,jj,11) = qns(ji,jj) + qsr(ji,jj) 117 zcmo(ji,jj,12) = qsr(ji,jj) 118 zcmo(ji,jj,13) = qns(ji,jj) 119 119 ! See thersf for the coefficient 120 zcmo(ji,jj,14) = - fsalt(ji,jj) * rday * ( sss_io(ji,jj) + epsi16 ) / soce121 zcmo(ji,jj,15) = gtaux(ji,jj)122 zcmo(ji,jj,16) = gtauy(ji,jj)123 zcmo(ji,jj,17) = ( 1.0 - frld(ji,jj) ) * qsr_ice (ji,jj) + frld(ji,jj) * qsr_oce(ji,jj)124 zcmo(ji,jj,18) = ( 1.0 - frld(ji,jj) ) * qnsr_ice(ji,jj) + frld(ji,jj) * qnsr_oce(ji,jj)120 zcmo(ji,jj,14) = - emps(ji,jj) * rday * ( sss_m(ji,jj) + epsi16 ) / soce 121 zcmo(ji,jj,15) = utaui_ice(ji,jj) 122 zcmo(ji,jj,16) = vtaui_ice(ji,jj) 123 zcmo(ji,jj,17) = qsr (ji,jj) 124 zcmo(ji,jj,18) = qns(ji,jj) 125 125 zcmo(ji,jj,19) = sprecip(ji,jj) 126 126 END DO … … 154 154 + v_ice(ji,jj+1) * tmu(ji,jj+1) + v_ice(ji+1,jj+1) * tmu(ji+1,jj+1) ) & 155 155 / ztmu 156 rcmoy(ji,jj,9) = sst_ io(ji,jj)157 rcmoy(ji,jj,10) = sss_ io(ji,jj)158 159 rcmoy(ji,jj,11) = fnsolar(ji,jj) + fsolar(ji,jj)160 rcmoy(ji,jj,12) = fsolar(ji,jj)161 rcmoy(ji,jj,13) = fnsolar(ji,jj)156 rcmoy(ji,jj,9) = sst_m(ji,jj) 157 rcmoy(ji,jj,10) = sss_m(ji,jj) 158 159 rcmoy(ji,jj,11) = qns(ji,jj) + qsr(ji,jj) 160 rcmoy(ji,jj,12) = qsr(ji,jj) 161 rcmoy(ji,jj,13) = qns(ji,jj) 162 162 ! See thersf for the coefficient 163 rcmoy(ji,jj,14) = - fsalt(ji,jj) * rday * ( sss_io(ji,jj) + epsi16 ) / soce164 rcmoy(ji,jj,15) = gtaux(ji,jj)165 rcmoy(ji,jj,16) = gtauy(ji,jj)166 rcmoy(ji,jj,17) = ( 1.0 - frld(ji,jj) ) * qsr_ice (ji,jj) + frld(ji,jj) * qsr_oce(ji,jj)167 rcmoy(ji,jj,18) = ( 1.0 - frld(ji,jj) ) * qnsr_ice(ji,jj) + frld(ji,jj) * qnsr_oce(ji,jj)163 rcmoy(ji,jj,14) = - emps(ji,jj) * rday * ( sss_m(ji,jj) + epsi16 ) / soce 164 rcmoy(ji,jj,15) = utaui_ice(ji,jj) 165 rcmoy(ji,jj,16) = vtaui_ice(ji,jj) 166 rcmoy(ji,jj,17) = qsr(ji,jj) 167 rcmoy(ji,jj,18) = qns(ji,jj) 168 168 rcmoy(ji,jj,19) = sprecip(ji,jj) 169 169 END DO … … 176 176 zfield(:,:) = (rcmoy(:,:,jf) * cmulti(jf) + cadd(jf)) * tmask(:,:,1) 177 177 178 IF ( jf == 7 .OR. jf == 8 .OR. jf == 11 .OR. jf == 12 .OR. jf == 15 .OR. & 179 jf == 23 .OR. jf == 24 .OR. jf == 16 ) THEN 178 IF ( jf == 7 .OR. jf == 8 .OR. jf == 15 .OR. jf == 16 ) THEN 180 179 CALL lbc_lnk( zfield, 'T', -1. ) 181 180 ELSE
Note: See TracChangeset
for help on using the changeset viewer.