|
Last change
on this file since 4191 was
4176,
checked in by dubos, 6 years ago
|
|
simple_physics : copy code from FH
|
|
File size:
781 bytes
|
| Line | |
|---|
| 1 | ! Routines complementaires pour la physique planetaire. |
|---|
| 2 | |
|---|
| 3 | |
|---|
| 4 | subroutine iniaqua(nlon,latfi,lonfi,iflag_phys) |
|---|
| 5 | |
|---|
| 6 | !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! |
|---|
| 7 | ! Creation d'un etat initial et de conditions aux limites |
|---|
| 8 | ! (resp startphy.nc et limit.nc) pour des configurations idealisees |
|---|
| 9 | ! du modele LMDZ dans sa version terrestre. |
|---|
| 10 | ! iflag_phys est un parametre qui controle |
|---|
| 11 | ! iflag_phys = N |
|---|
| 12 | ! de 100 a 199 : aqua planetes avec SST forcees |
|---|
| 13 | ! N-100 determine le type de SSTs |
|---|
| 14 | ! de 200 a 299 : terra planetes avec Ts calcule |
|---|
| 15 | ! |
|---|
| 16 | !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! |
|---|
| 17 | |
|---|
| 18 | |
|---|
| 19 | integer nlon,iflag_phys |
|---|
| 20 | cIM ajout latfi, lonfi |
|---|
| 21 | REAL, DIMENSION (nlon) :: lonfi, latfi |
|---|
| 22 | |
|---|
| 23 | |
|---|
| 24 | return |
|---|
| 25 | end |
|---|
| 26 | |
|---|
Note: See
TracBrowser
for help on using the repository browser.
