|
Last change
on this file since 1669 was
1615,
checked in by Ehouarn Millour, 14 years ago
|
|
Introducing "phydev", the minimal physics package.
makegcm and makelmdz_fcm script have been updated to add CPP_PHYS preprocessing key when building with physics and CPP_EARTH for Earth (LMD physics) related routines or instructions in the dynamics.
Checked (on Vargas) that "dev" physics package compiles and runs well in all (seq/mpi/omp/mpi_omp) modes and that introduced changes do not modify results when using the "lmd" physics package.
EM + 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.
