[1] | 1 | //MODULE phycst |
---|
| 2 | // !!====================================================================== |
---|
| 3 | // !! *** MODULE phycst *** |
---|
| 4 | // !! Definition of of both ocean and ice parameters used in the code |
---|
| 5 | // !!===================================================================== |
---|
| 6 | double rpi = 3.141592653589793;// !: pi |
---|
| 7 | double rad = 3.141592653589793/180.;//_wp !: conversion from degre into radian |
---|
| 8 | //double rsmall = 0.5 * EPSILON( 1. );// !: smallest real computer value |
---|
| 9 | double |
---|
| 10 | rday = 24.*60.*60. ,// & !: day (s) |
---|
| 11 | rsiyea ,// & !: sideral year (s) |
---|
| 12 | rsiday ,// & !: sideral day (s) |
---|
| 13 | raajj = 365. ,// & !: number of days in one year |
---|
| 14 | raamo = 12. ,// & !: number of months in one year |
---|
| 15 | rjjhh = 24. ,// & !: number of hours in one day |
---|
| 16 | rhhmm = 60. ,// & !: number of minutes in one hour |
---|
| 17 | rmmss = 60. ,// & !: number of seconds in one minute |
---|
| 18 | raass ,// & !: number of seconds in one year |
---|
| 19 | rmoss ,// & !: number of seconds in one month |
---|
| 20 | rjjss ,// & !: number of seconds in one day |
---|
| 21 | omega ,// & !: earth rotation parameter |
---|
| 22 | ra = 6371229. ,// & !: earth radius (meter) |
---|
| 23 | grav = 9.80665; // !: gravity (m/s2) |
---|
| 24 | |
---|
| 25 | double |
---|
| 26 | rtt = 273.16 ,// & !: triple point of temperature (Kelvin) |
---|
| 27 | rt0 = 273.15 ,// & !: freezing point of water (Kelvin) |
---|
| 28 | rt0_snow = 273.15 ,// & !: melting point of snow (Kelvin) |
---|
| 29 | rt0_ice = 273.05 ,// & !: melting point of ice (Kelvin) |
---|
| 30 | rau0 = 1020. ,// & !: volumic mass of reference (kg/m3) |
---|
| 31 | rauw = 1000. ,// & !: volumic mass of pure water (kg/m3) |
---|
| 32 | rcp = 4.e+3,// & !: ocean specific heat |
---|
| 33 | ro0cpr; // !: = 1. / ( rau0 * rcp ) |
---|
| 34 | |
---|
| 35 | double |
---|
| 36 | rcdsn = 0.22 ,// & !: conductivity of the snow |
---|
| 37 | rcdic = 2.034396 ,// & !: conductivity of the ice |
---|
| 38 | rcpsn = 6.9069e+5,// & !: density times specific heat for snow |
---|
| 39 | rcpic = 1.8837e+6,// & !: volumetric latent heat fusion of sea ice |
---|
| 40 | xlsn = 110.121e+6 ,// & !: volumetric latent heat fusion of snow |
---|
| 41 | xlic = 300.33e+6 ,// & !: volumetric latent heat fusion of ice |
---|
| 42 | xsn = 2.8e+6 ,// & !: latent heat of sublimation of snow |
---|
| 43 | rhoic = 900. ,// & !: volumic mass of sea ice (kg/m3) |
---|
| 44 | rhosn = 330. ,// & !: volumic mass of snow (kg/m3) |
---|
| 45 | emic = 0.97 ,// & !: emissivity of snow or ice |
---|
| 46 | sice = 6.0 ,// & !: salinity of ice (psu) |
---|
| 47 | soce = 34.7 ,// & !: salinity of sea (psu) |
---|
| 48 | cevap = 2.5e+6 ,// & !: latent heat of evaporation (water) |
---|
| 49 | srgamma = 0.9 ,// & !: correction factor for solar radiation (Oberhuber, 1974) |
---|
| 50 | vkarmn = 0.4 ,// & !: von Karman constant |
---|
| 51 | stefan = 5.67e-8 ;// !: Stefan-Boltzmann constant |
---|
| 52 | |
---|
| 53 | void phy_cst(); |
---|
| 54 | void phy_cst(){ |
---|
| 55 | rsiyea = 365.25 * rday * 2. * rpi / 6.283076; |
---|
| 56 | rsiday = rday / ( 1. + rday / rsiyea ); |
---|
| 57 | omega = 2. * rpi / rsiday ; |
---|
| 58 | rjjss = rjjhh * rhhmm * rmmss; |
---|
| 59 | ro0cpr = 1. / ( rau0 * rcp ); |
---|
| 60 | raajj = 30*raamo; // a revoir |
---|
| 61 | raass = raajj*rjjss;// a revoir |
---|
| 62 | rmoss = 30*rjjss;// a revoir |
---|
| 63 | } |
---|
| 64 | // !!====================================================================== |
---|