- Timestamp:
- 2014-05-02T12:11:34+02:00 (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/dev_r4028_CNRS_LIM3_MV2014/NEMOGCM/NEMO/LIM_SRC_3/limwri.F90
r4566 r4626 331 331 !!---------------------------------------------------------------------- 332 332 333 334 335 333 CALL histdef( kid, "iicethic", "Ice thickness" , "m" , jpi, jpj, kh_i, 1, 1, 1, -99, 32, "inst(x)", rdt, rdt ) 336 334 CALL histdef( kid, "iiceconc", "Ice concentration" , "%" , jpi, jpj, kh_i, 1, 1, 1, -99, 32, "inst(x)", rdt, rdt ) … … 338 336 CALL histdef( kid, "iicevelu", "i-Ice speed (I-point)" , "m/s" , jpi, jpj, kh_i, 1, 1, 1, -99, 32, "inst(x)", rdt, rdt ) 339 337 CALL histdef( kid, "iicevelv", "j-Ice speed (I-point)" , "m/s" , jpi, jpj, kh_i, 1, 1, 1, -99, 32, "inst(x)", rdt, rdt ) 340 CALL histdef( kid, "iicestru", "i-Wind stress over ice (I-pt)", "Pa", jpi, jpj, kh_i, 1, 1, 1, -99, 32, "inst(x)", rdt, rdt )341 CALL histdef( kid, "iicestrv", "j-Wind stress over ice (I-pt)", "Pa", jpi, jpj, kh_i, 1, 1, 1, -99, 32, "inst(x)", rdt, rdt )342 CALL histdef( kid, "iicesflx", "Solar flux over ocean" 343 CALL histdef( kid, "iicenflx", "Non-solar flux over ocean" ,"w/m2" , jpi, jpj, kh_i, 1, 1, 1, -99, 32, "inst(x)", rdt, rdt )338 CALL histdef( kid, "iicestru", "i-Wind stress over ice" , "Pa" , jpi, jpj, kh_i, 1, 1, 1, -99, 32, "inst(x)", rdt, rdt ) 339 CALL histdef( kid, "iicestrv", "j-Wind stress over ice" , "Pa" , jpi, jpj, kh_i, 1, 1, 1, -99, 32, "inst(x)", rdt, rdt ) 340 CALL histdef( kid, "iicesflx", "Solar flux over ocean" , "w/m2" , jpi, jpj, kh_i, 1, 1, 1, -99, 32, "inst(x)", rdt, rdt ) 341 CALL histdef( kid, "iicenflx", "Non-solar flux over ocean","w/m2" , jpi, jpj, kh_i, 1, 1, 1, -99, 32, "inst(x)", rdt, rdt ) 344 342 CALL histdef( kid, "isnowpre", "Snow precipitation" , "kg/m2/s", jpi, jpj, kh_i, 1, 1, 1, -99, 32, "inst(x)", rdt, rdt ) 345 343 CALL histdef( kid, "iicesali", "Ice salinity" , "PSU" , jpi, jpj, kh_i, 1, 1, 1, -99, 32, "inst(x)", rdt, rdt ) 346 344 CALL histdef( kid, "iicevolu", "Ice volume" , "m" , jpi, jpj, kh_i, 1, 1, 1, -99, 32, "inst(x)", rdt, rdt ) 347 345 CALL histdef( kid, "iicedive", "Ice divergence" , "10-8s-1", jpi, jpj, kh_i, 1, 1, 1, -99, 32, "inst(x)", rdt, rdt ) 348 CALL histdef( kid, "iicebopr", "Ice bottom production" , "m/s" 349 CALL histdef( kid, "iicedypr", "Ice dynamic production" , "m/s" 350 CALL histdef( kid, "iicelapr", "Ice open water prod" , "m/s" 351 CALL histdef( kid, "iicesipr", "Snow ice production " , "m/s" 352 CALL histdef( kid, "iicerepr", "Ice prod from limupdate" , "m/s" 353 CALL histdef( kid, "iicebome", "Ice bottom melt" , "m/s" 354 CALL histdef( kid, "iicesume", "Ice surface melt" , "m/s" 355 CALL histdef( kid, "iisfxthd", "Salt flux from thermo" , "" , jpi, jpj, kh_i, 1, 1, 1, -99, 32, "inst(x)", rdt, rdt )356 CALL histdef( kid, "iisfxmec", "Salt flux from dynmics" , "" , jpi, jpj, kh_i, 1, 1, 1, -99, 32, "inst(x)", rdt, rdt )357 CALL histdef( kid, "iisfxres", "Salt flux from limupdate", "" , jpi, jpj, kh_i, 1, 1, 1, -99, 32, "inst(x)", rdt, rdt )346 CALL histdef( kid, "iicebopr", "Ice bottom production" , "m/s" , jpi, jpj, kh_i, 1, 1, 1, -99, 32, "inst(x)", rdt, rdt ) 347 CALL histdef( kid, "iicedypr", "Ice dynamic production" , "m/s" , jpi, jpj, kh_i, 1, 1, 1, -99, 32, "inst(x)", rdt, rdt ) 348 CALL histdef( kid, "iicelapr", "Ice open water prod" , "m/s" , jpi, jpj, kh_i, 1, 1, 1, -99, 32, "inst(x)", rdt, rdt ) 349 CALL histdef( kid, "iicesipr", "Snow ice production " , "m/s" , jpi, jpj, kh_i, 1, 1, 1, -99, 32, "inst(x)", rdt, rdt ) 350 CALL histdef( kid, "iicerepr", "Ice prod from limupdate" , "m/s" , jpi, jpj, kh_i, 1, 1, 1, -99, 32, "inst(x)", rdt, rdt ) 351 CALL histdef( kid, "iicebome", "Ice bottom melt" , "m/s" , jpi, jpj, kh_i, 1, 1, 1, -99, 32, "inst(x)", rdt, rdt ) 352 CALL histdef( kid, "iicesume", "Ice surface melt" , "m/s" , jpi, jpj, kh_i, 1, 1, 1, -99, 32, "inst(x)", rdt, rdt ) 353 CALL histdef( kid, "iisfxthd", "Salt flux from thermo" , "" , jpi, jpj, kh_i, 1, 1, 1, -99, 32, "inst(x)", rdt, rdt ) 354 CALL histdef( kid, "iisfxmec", "Salt flux from dynmics" , "" , jpi, jpj, kh_i, 1, 1, 1, -99, 32, "inst(x)", rdt, rdt ) 355 CALL histdef( kid, "iisfxres", "Salt flux from limupdate", "" , jpi, jpj, kh_i, 1, 1, 1, -99, 32, "inst(x)", rdt, rdt ) 358 356 359 357 CALL histend( kid, snc4set ) ! end of the file definition 360 358 361 CALL histwrite( kid, "iicethic", kt, icethi 362 CALL histwrite( kid, "iiceconc", kt, at_i 363 CALL histwrite( kid, "iicetemp", kt, tm_i - rtt 364 CALL histwrite( kid, "iicevelu", kt, u_ice 365 CALL histwrite( kid, "iicevelv", kt, v_ice 366 CALL histwrite( kid, "iicestru", kt, utau_ice 367 CALL histwrite( kid, "iicestrv", kt, vtau_ice 368 CALL histwrite( kid, "iicesflx", kt, qsr , jpi*jpj, (/1/) )369 CALL histwrite( kid, "iicenflx", kt, qns , jpi*jpj, (/1/) )370 CALL histwrite( kid, "isnowpre", kt, sprecip 371 CALL histwrite( kid, "iicesali", kt, smt_i 372 CALL histwrite( kid, "iicevolu", kt, vt_i 373 CALL histwrite( kid, "iicedive", kt, divu_i*1.0e8 374 375 CALL histwrite( kid, "iicebopr", kt, diag_bot_gr 376 CALL histwrite( kid, "iicedypr", kt, diag_dyn_gr 377 CALL histwrite( kid, "iicelapr", kt, diag_lat_gr 378 CALL histwrite( kid, "iicesipr", kt, diag_sni_gr 379 CALL histwrite( kid, "iicerepr", kt, diag_res_pr 380 CALL histwrite( kid, "iicebome", kt, diag_bot_me 381 CALL histwrite( kid, "iicesume", kt, diag_sur_me 382 CALL histwrite( kid, "iisfxthd", kt, sfx_thd 383 CALL histwrite( kid, "iisfxmec", kt, sfx_mec 384 CALL histwrite( kid, "iisfxres", kt, sfx_res 359 CALL histwrite( kid, "iicethic", kt, icethi , jpi*jpj, (/1/) ) 360 CALL histwrite( kid, "iiceconc", kt, at_i , jpi*jpj, (/1/) ) 361 CALL histwrite( kid, "iicetemp", kt, tm_i - rtt , jpi*jpj, (/1/) ) 362 CALL histwrite( kid, "iicevelu", kt, u_ice , jpi*jpj, (/1/) ) 363 CALL histwrite( kid, "iicevelv", kt, v_ice , jpi*jpj, (/1/) ) 364 CALL histwrite( kid, "iicestru", kt, utau_ice , jpi*jpj, (/1/) ) 365 CALL histwrite( kid, "iicestrv", kt, vtau_ice , jpi*jpj, (/1/) ) 366 CALL histwrite( kid, "iicesflx", kt, qsr , jpi*jpj, (/1/) ) 367 CALL histwrite( kid, "iicenflx", kt, qns , jpi*jpj, (/1/) ) 368 CALL histwrite( kid, "isnowpre", kt, sprecip , jpi*jpj, (/1/) ) 369 CALL histwrite( kid, "iicesali", kt, smt_i , jpi*jpj, (/1/) ) 370 CALL histwrite( kid, "iicevolu", kt, vt_i , jpi*jpj, (/1/) ) 371 CALL histwrite( kid, "iicedive", kt, divu_i*1.0e8, jpi*jpj, (/1/) ) 372 373 CALL histwrite( kid, "iicebopr", kt, diag_bot_gr , jpi*jpj, (/1/) ) 374 CALL histwrite( kid, "iicedypr", kt, diag_dyn_gr , jpi*jpj, (/1/) ) 375 CALL histwrite( kid, "iicelapr", kt, diag_lat_gr , jpi*jpj, (/1/) ) 376 CALL histwrite( kid, "iicesipr", kt, diag_sni_gr , jpi*jpj, (/1/) ) 377 CALL histwrite( kid, "iicerepr", kt, diag_res_pr , jpi*jpj, (/1/) ) 378 CALL histwrite( kid, "iicebome", kt, diag_bot_me , jpi*jpj, (/1/) ) 379 CALL histwrite( kid, "iicesume", kt, diag_sur_me , jpi*jpj, (/1/) ) 380 CALL histwrite( kid, "iisfxthd", kt, sfx_thd , jpi*jpj, (/1/) ) 381 CALL histwrite( kid, "iisfxmec", kt, sfx_mec , jpi*jpj, (/1/) ) 382 CALL histwrite( kid, "iisfxres", kt, sfx_res , jpi*jpj, (/1/) ) 385 383 386 384 ! Close the file
Note: See TracChangeset
for help on using the changeset viewer.