Parent Directory
| 
Revision Log
-- Minor change of behaviour: "etat0" does not compute "rugsrel" nor "radpas". Deleted arguments "radpas" and "rugsrel" of "phyredem". Deleted argument "rugsrel" of "phyetat0". "startphy.nc" does not contain the variable "RUGSREL". In "physiq", "rugoro" is set to 0 if not "ok_orodr". The whole program "etat0_lim" does not use "clesphys2". -- Minor modification of input/output: Created subroutine "read_clesphys2". Variables of "clesphys2" are read in "read_clesphys2" instead of "conf_gcm". "printflag" does not print variables of "clesphys2". -- Should not change any result at run time: References to module "numer_rec" instead of individual modules of "Numer_rec_Lionel". Deleted argument "clesphy0" of "calfis", "physiq", "conf_gcm", "leapfrog", "phyetat0". Deleted variable "clesphy0" in "gcm". "phyetat0" does not modify variables of "clesphys2". The program unit "gcm" does not modify "itau_phy". Added some "intent" attributes. "regr11_lint" does not call "polint".
| 1 | guez | 12 | SUBROUTINE printflag(radpas, ok_ocean, ok_oasis, ok_journe, ok_instan, & |
| 2 | ok_region) | ||
| 3 | guez | 3 | |
| 4 | guez | 12 | ! From phylmd/printflag.F, v 1.1.1.1 2004/05/19 12:53:09 |
| 5 | ! Auteur : P. Le Van | ||
| 6 | guez | 3 | |
| 7 | guez | 12 | IMPLICIT NONE |
| 8 | guez | 3 | |
| 9 | guez | 12 | INTEGER, INTENT (IN) :: radpas |
| 10 | LOGICAL, INTENT (IN) :: ok_ocean, ok_oasis, ok_journe, ok_instan, ok_region | ||
| 11 | guez | 3 | |
| 12 | guez | 12 | !-------------------------------------------------- |
| 13 | guez | 3 | |
| 14 | guez | 13 | PRINT *, 'Choix des principales clés de la physique' |
| 15 | guez | 3 | |
| 16 | guez | 12 | PRINT 8, radpas |
| 17 | PRINT 5, ok_ocean, ok_oasis | ||
| 18 | PRINT 4, ok_journe, ok_instan, ok_region | ||
| 19 | guez | 3 | |
| 20 | guez | 12 | 4 FORMAT ('ok_journe= ', L3, ', ok_instan = ', L3, ', ok_region = ', L3) |
| 21 | 5 FORMAT ('ok_ocean = ', L3, ', ok_oasis = ', L3) | ||
| 22 | 8 FORMAT ('radpas = ', I4) | ||
| 23 | guez | 3 | |
| 24 | guez | 12 | END SUBROUTINE printflag |
| ViewVC Help | |
| Powered by ViewVC 1.1.21 |