/[lmdze]/trunk/phylmd/cdrag.f
ViewVC logotype

Log of /trunk/phylmd/cdrag.f

Parent Directory Parent Directory | Revision Log Revision Log


Sticky Revision:
(Current path doesn't exist after revision 285)

Revision 275 - (view) (annotate) - [select for diffs]
Modified Wed Jul 11 17:06:09 2018 UTC (5 years, 10 months ago) by guez
File length: 3779 byte(s)
Copied from: trunk/phylmd/clcdrag.f revision 274
Diff to previous 274
Merge procedures clcdrag and coefcdrag into procedure cdrag (following
LMDZ revision 2232).


Revision 274 - (view) (annotate) - [select for diffs]
Modified Wed Jul 11 16:50:27 2018 UTC (5 years, 10 months ago) by guez
Original Path: trunk/phylmd/clcdrag.f
File length: 3741 byte(s)
Diff to previous 272
Merge clcdrag and coefcdrag (following LMDZ revision 2232). Replace
local arrays by scalars. max(qsurf, 0), f_cdrag_ter, f_cdrag_oce in
clcdrag.  max(cepdu2, speed(i)**2) in coefcdrag, test zri > 0 instead
of >= 0. trm1 was unused in coefcdrag. No need for intermediary local
variable pref_local.


Revision 272 - (view) (annotate) - [select for diffs]
Modified Wed Jul 11 14:51:28 2018 UTC (5 years, 10 months ago) by guez
Original Path: trunk/phylmd/clcdrag.f
File length: 3409 byte(s)
Diff to previous 271
Add arguments psol and pref to clcdrag, in preparation of merge with
coefcdrag. Remove intent out arguments cdran and zri1 of coefcdrag,
not used. Make argument pref of coefcdrag optional, in preparation of
merge with clcdrag. Remove useless intermediary local variable zdphi
in coefcdrag. Remove unused local variable ri1 in stdlevvar.


Revision 271 - (view) (annotate) - [select for diffs]
Modified Wed Jul 11 13:22:39 2018 UTC (5 years, 10 months ago) by guez
Original Path: trunk/phylmd/clcdrag.f
File length: 3251 byte(s)
Diff to previous 254
Replace arguments u, v of procedure clcdrag by argument speed,
preparing merge with procedure coefcdrag.


Revision 254 - (view) (annotate) - [select for diffs]
Modified Mon Feb 5 10:39:38 2018 UTC (6 years, 3 months ago) by guez
Original Path: trunk/phylmd/clcdrag.f
File length: 3195 byte(s)
Diff to previous 248
Move Sources/* to root directory.

Revision 248 - (view) (annotate) - [select for diffs]
Modified Fri Jan 5 16:40:13 2018 UTC (6 years, 4 months ago) by guez
Original Path: trunk/Sources/phylmd/clcdrag.f
File length: 3195 byte(s)
Diff to previous 246
Move the call to clcdrag up from coefkz to clmain (folllowing
LMDZ). As both clcdrag and coefkz need zgeop, also move the
computation of zgeop from coefkz to clmain.


Revision 246 - (view) (annotate) - [select for diffs]
Modified Wed Nov 15 13:56:45 2017 UTC (6 years, 5 months ago) by guez
Original Path: trunk/Sources/phylmd/clcdrag.f
File length: 3039 byte(s)
Diff to previous 221
In procedure clmain, no need for intermediary variables ykmm and ykmn.

In module coefcdrag_m, remove unused procedures fsta and fins.


Revision 221 - (view) (annotate) - [select for diffs]
Modified Thu Apr 20 14:44:47 2017 UTC (7 years ago) by guez
Original Path: trunk/Sources/phylmd/clcdrag.f
File length: 3051 byte(s)
Diff to previous 134
clcdrag is no longer used in LMDZ. Replaced by cdrag in LMDZ. In cdrag
in LMDZ, zxli is a symbolic constant, false. So removed case zxli true
in LMDZE.

read_sst is called zero (if no ocean point on the whole planet) time or
once per call of physiq. If mod(itap - 1, lmt_pas) == 0 then we have
advanced in time of lmt_pas and deja_lu is necessarily false.

qsat[sl] and dqsat[sl] were never called.

Added output of qsurf in histins, following LMDZ.

Last dummy argument dtime of phystokenc is always the same as first
dummy argument pdtphys, removed dtime.

Removed make rules for nag_xref95, since it does not exist any longer.


Revision 134 - (view) (annotate) - [select for diffs]
Modified Wed Apr 29 15:47:56 2015 UTC (9 years ago) by guez
Original Path: trunk/Sources/phylmd/clcdrag.f
File length: 4255 byte(s)
Copied from: trunk/phylmd/clcdrag.f90 revision 80
Diff to previous 82
Sources inside, compilation outside.

Revision 82 - (view) (annotate) - [select for diffs]
Modified Wed Mar 5 14:57:53 2014 UTC (10 years, 2 months ago) by guez
Original Path: trunk/phylmd/clcdrag.f
File length: 4255 byte(s)
Copied from: trunk/phylmd/clcdrag.f90 revision 80
Diff to previous 76
Changed all ".f90" suffixes to ".f".

Revision 76 - (view) (annotate) - [select for diffs]
Modified Fri Nov 15 18:45:49 2013 UTC (10 years, 5 months ago) by guez
Original Path: trunk/phylmd/clcdrag.f90
File length: 4255 byte(s)
Diff to previous 62
Moved everything out of libf.

Revision 62 - (view) (annotate) - [select for diffs]
Modified Thu Jul 26 14:37:37 2012 UTC (11 years, 9 months ago) by guez
Original Path: trunk/libf/phylmd/clcdrag.f90
File length: 4255 byte(s)
Diff to previous 47
Changed handling of compiler in compilation system.

Removed the prefix letters "y", "p", "t" or "z" in some names of variables.

Replaced calls to NetCDF by calls to NetCDF95.

Extracted "ioget_calendar" procedures from "calendar.f90" into a
separate file.

Extracted to a separate file, "mathop2.f90", procedures that were not
part of the generic interface "mathop" in "mathop.f90".

Removed computation of "dq" in "bilan_dyn", which was not used.

In "iniadvtrac", removed schemes 20 Slopes and 30 Prather. Was not
compatible with declarations of array sizes.

In "clcdrag", "ustarhb", "vdif_kcay", "yamada4" and "coefkz", changed
the size of some arrays from "klon" to "knon".

Removed possible call to "conema3" in "physiq".

Removed unused argument "cd" in "yamada".


Revision 47 - (view) (annotate) - [select for diffs]
Modified Fri Jul 1 15:00:48 2011 UTC (12 years, 10 months ago) by guez
Original Path: trunk/libf/phylmd/clcdrag.f90
File length: 3987 byte(s)
Diff to previous 40
Split "thermcell.f" and "cv3_routines.f".
Removed copies of files that are now in "L_util".
Moved "mva9" and "diagetpq" to their own files.
Unified variable names across procedures.


Revision 40 - (view) (annotate) - [select for diffs]
Modified Tue Feb 22 13:49:36 2011 UTC (13 years, 2 months ago) by guez
Original Path: trunk/libf/phylmd/clcdrag.f90
File length: 3658 byte(s)
Diff to previous 38
"alpha" useless, always 0, in "exner_hyb".


Revision 38 - (view) (annotate) - [select for diffs]
Modified Thu Jan 6 17:52:19 2011 UTC (13 years, 4 months ago) by guez
Original Path: trunk/libf/phylmd/clcdrag.f90
File length: 4333 byte(s)
Diff to previous 3
Extracted ASCII art from "inigeom" into a separate text file in the
documentation.

"test_disvert" now creates a separate file for layer thicknesses.

Moved variables from module "yomcst" to module "suphec_m" because this
is where those variables are defined. Kept in "yomcst" only parameters
of Earth orbit. Gave the attribute "parameter" to some variables of
module "suphec_m".

Variables of module "yoethf" were defined in procedure "suphec". Moved
these definitions to a new procedure "yoethf" in module "yoethf_m".


Revision 3 - (view) (annotate) - [select for diffs]
Added Wed Feb 27 13:16:39 2008 UTC (16 years, 2 months ago) by guez
Original Path: trunk/libf/phylmd/clcdrag.f90
File length: 4329 byte(s)
Initial import

This form allows you to request diffs between any two revisions of this file. For each of the two "sides" of the diff, enter a numeric revision.

  Diffs between and
  Type of Diff should be a

  ViewVC Help
Powered by ViewVC 1.1.21