Commit f5e580ce84061fcf1c80858bc10f76623f5b1da9

Authored by dumoda01
1 parent 0c7073ab
Exists in master and in 1 other branch snow

Ajout de la glace dans le fichier de sortie. La concentration de glace est speci…

…fiee par l'utilisateur (airsea.nml) et ne sert qu'a attenuer la lumiere.
Showing 1 changed file with 9 additions and 5 deletions   Show diff stats
src/output/ncdfout.F90
... ... @@ -114,7 +114,7 @@
114 114 ! variable ids
115 115 integer, private :: lon_id,lat_id,z_id,z1_id,time_id
116 116 integer, private :: zeta_id
117   - integer, private :: sst_id,sss_id
  117 + integer, private :: sst_id,sss_id,ice_id
118 118 integer, private :: x_taus_id,y_taus_id
119 119 integer, private :: swr_id,heat_id,total_id,p_e_id
120 120 integer, private :: int_swr_id,int_heat_id,int_total_id
... ... @@ -233,6 +233,8 @@
233 233 call check_err(iret)
234 234 iret = nf_def_var(ncid,'sss',NF_REAL,3,dims, sss_id)
235 235 call check_err(iret)
  236 + iret = nf_def_var(ncid,'ice',NF_REAL,3,dims, ice_id)
  237 + call check_err(iret)
236 238 !BUG1 iret = nf_def_var(ncid,'x-taus',NF_REAL,3,dims, x_taus_id)
237 239 !BUG1 call check_err(iret)
238 240 !BUG1 iret = nf_def_var(ncid,'y-taus',NF_REAL,3,dims, y_taus_id)
... ... @@ -410,6 +412,7 @@
410 412 iret = set_attributes(ncid,zeta_id,units='m',long_name='sea surface elevation')
411 413 iret = set_attributes(ncid,sst_id,units='celsius',long_name='sea surface temperature')
412 414 iret = set_attributes(ncid,sss_id,units='psu',long_name='sea surface salinity')
  415 + iret = set_attributes(ncid,ice_id,units='%',long_name='ice concentration')
413 416 iret = set_attributes(ncid,x_taus_id,units='Pa',long_name='x-wind stress')
414 417 iret = set_attributes(ncid,y_taus_id,units='Pa',long_name='y-wind stress')
415 418 iret = set_attributes(ncid,swr_id,units='W/m2',long_name='short wave radiation')
... ... @@ -521,11 +524,11 @@
521 524 ! Write the GOTM core variables to the NetCDF file.
522 525 !
523 526 ! !USES:
524   - use airsea, only: tx,ty,I_0,heat,p_e,sst,sss
  527 + use airsea, only: tx,ty,I_0,heat,p_e,sst,sss,ice
525 528 use airsea, only: int_swr,int_heat,int_total
526 529 use meanflow, only: depth0,u_taub,u_taus,rho_0,gravity
527 530 use meanflow, only: h,u,v,z,S,T,buoy,SS,NN
528   - use meanflow, only: NIT,AMM !CHG3-5
  531 + use meanflow, only: nit,amm !CHG3-5
529 532 use turbulence, only: P,B,Pb
530 533 use turbulence, only: num,nuh,nus
531 534 use turbulence, only: gamu,gamv,gamh,gams
... ... @@ -592,6 +595,7 @@
592 595 iret = store_data(ncid,zeta_id,XYT_SHAPE,1,scalar=zeta)
593 596 iret = store_data(ncid,sst_id,XYT_SHAPE,1,scalar=sst)
594 597 iret = store_data(ncid,sss_id,XYT_SHAPE,1,scalar=sss)
  598 + iret = store_data(ncid,ice_id,XYT_SHAPE,1,scalar=ice)
595 599 iret = store_data(ncid,x_taus_id,XYT_SHAPE,1,scalar=rho_0*tx)
596 600 iret = store_data(ncid,y_taus_id,XYT_SHAPE,1,scalar=rho_0*ty)
597 601 iret = store_data(ncid,swr_id,XYT_SHAPE,1,scalar=I_0)
... ... @@ -619,9 +623,9 @@
619 623 iret = store_data(ncid,salt_obs_id,XYZT_SHAPE,nlev,array=sprof)
620 624 iret = store_data(ncid,temp_id,XYZT_SHAPE,nlev,array=T)
621 625 iret = store_data(ncid,temp_obs_id,XYZT_SHAPE,nlev,array=tprof)
622   - iret = store_data(ncid,nit_id,XYZT_SHAPE,nlev,array=NIT) !CHG3
  626 + iret = store_data(ncid,nit_id,XYZT_SHAPE,nlev,array=nit) !CHG3
623 627 iret = store_data(ncid,nit_obs_id,XYZT_SHAPE,nlev,array=nprof) !CHG3
624   - iret = store_data(ncid,amm_id,XYZT_SHAPE,nlev,array=AMM) !CHG5
  628 + iret = store_data(ncid,amm_id,XYZT_SHAPE,nlev,array=amm) !CHG5
625 629 iret = store_data(ncid,amm_obs_id,XYZT_SHAPE,nlev,array=aprof) !CHG5
626 630 iret = store_data(ncid,SS_id,XYZT_SHAPE,nlev,array=SS)
627 631 iret = store_data(ncid,NN_id,XYZT_SHAPE,nlev,array=NN)
... ...