diff --git a/LICENSE.md b/LICENSE.md new file mode 100644 index 000000000..0927556b5 --- /dev/null +++ b/LICENSE.md @@ -0,0 +1,157 @@ +### GNU LESSER GENERAL PUBLIC LICENSE + +Version 3, 29 June 2007 + +Copyright (C) 2007 Free Software Foundation, Inc. + + +Everyone is permitted to copy and distribute verbatim copies of this +license document, but changing it is not allowed. + +This version of the GNU Lesser General Public License incorporates the +terms and conditions of version 3 of the GNU General Public License, +supplemented by the additional permissions listed below. + +#### 0. Additional Definitions. + +As used herein, "this License" refers to version 3 of the GNU Lesser +General Public License, and the "GNU GPL" refers to version 3 of the +GNU General Public License. + +"The Library" refers to a covered work governed by this License, other +than an Application or a Combined Work as defined below. + +An "Application" is any work that makes use of an interface provided +by the Library, but which is not otherwise based on the Library. +Defining a subclass of a class defined by the Library is deemed a mode +of using an interface provided by the Library. + +A "Combined Work" is a work produced by combining or linking an +Application with the Library. The particular version of the Library +with which the Combined Work was made is also called the "Linked +Version". + +The "Minimal Corresponding Source" for a Combined Work means the +Corresponding Source for the Combined Work, excluding any source code +for portions of the Combined Work that, considered in isolation, are +based on the Application, and not on the Linked Version. + +The "Corresponding Application Code" for a Combined Work means the +object code and/or source code for the Application, including any data +and utility programs needed for reproducing the Combined Work from the +Application, but excluding the System Libraries of the Combined Work. + +#### 1. Exception to Section 3 of the GNU GPL. + +You may convey a covered work under sections 3 and 4 of this License +without being bound by section 3 of the GNU GPL. + +#### 2. Conveying Modified Versions. + +If you modify a copy of the Library, and, in your modifications, a +facility refers to a function or data to be supplied by an Application +that uses the facility (other than as an argument passed when the +facility is invoked), then you may convey a copy of the modified +version: + +- a) under this License, provided that you make a good faith effort + to ensure that, in the event an Application does not supply the + function or data, the facility still operates, and performs + whatever part of its purpose remains meaningful, or +- b) under the GNU GPL, with none of the additional permissions of + this License applicable to that copy. + +#### 3. Object Code Incorporating Material from Library Header Files. + +The object code form of an Application may incorporate material from a +header file that is part of the Library. You may convey such object +code under terms of your choice, provided that, if the incorporated +material is not limited to numerical parameters, data structure +layouts and accessors, or small macros, inline functions and templates +(ten or fewer lines in length), you do both of the following: + +- a) Give prominent notice with each copy of the object code that + the Library is used in it and that the Library and its use are + covered by this License. +- b) Accompany the object code with a copy of the GNU GPL and this + license document. + +#### 4. Combined Works. + +You may convey a Combined Work under terms of your choice that, taken +together, effectively do not restrict modification of the portions of +the Library contained in the Combined Work and reverse engineering for +debugging such modifications, if you also do each of the following: + +- a) Give prominent notice with each copy of the Combined Work that + the Library is used in it and that the Library and its use are + covered by this License. +- b) Accompany the Combined Work with a copy of the GNU GPL and this + license document. +- c) For a Combined Work that displays copyright notices during + execution, include the copyright notice for the Library among + these notices, as well as a reference directing the user to the + copies of the GNU GPL and this license document. +- d) Do one of the following: + - 0) Convey the Minimal Corresponding Source under the terms of + this License, and the Corresponding Application Code in a form + suitable for, and under terms that permit, the user to + recombine or relink the Application with a modified version of + the Linked Version to produce a modified Combined Work, in the + manner specified by section 6 of the GNU GPL for conveying + Corresponding Source. + - 1) Use a suitable shared library mechanism for linking with + the Library. A suitable mechanism is one that (a) uses at run + time a copy of the Library already present on the user's + computer system, and (b) will operate properly with a modified + version of the Library that is interface-compatible with the + Linked Version. +- e) Provide Installation Information, but only if you would + otherwise be required to provide such information under section 6 + of the GNU GPL, and only to the extent that such information is + necessary to install and execute a modified version of the + Combined Work produced by recombining or relinking the Application + with a modified version of the Linked Version. (If you use option + 4d0, the Installation Information must accompany the Minimal + Corresponding Source and Corresponding Application Code. If you + use option 4d1, you must provide the Installation Information in + the manner specified by section 6 of the GNU GPL for conveying + Corresponding Source.) + +#### 5. Combined Libraries. + +You may place library facilities that are a work based on the Library +side by side in a single library together with other library +facilities that are not Applications and are not covered by this +License, and convey such a combined library under terms of your +choice, if you do both of the following: + +- a) Accompany the combined library with a copy of the same work + based on the Library, uncombined with any other library + facilities, conveyed under the terms of this License. +- b) Give prominent notice with the combined library that part of it + is a work based on the Library, and explaining where to find the + accompanying uncombined form of the same work. + +#### 6. Revised Versions of the GNU Lesser General Public License. + +The Free Software Foundation may publish revised and/or new versions +of the GNU Lesser General Public License from time to time. Such new +versions will be similar in spirit to the present version, but may +differ in detail to address new problems or concerns. + +Each version is given a distinguishing version number. If the Library +as you received it specifies that a certain numbered version of the +GNU Lesser General Public License "or any later version" applies to +it, you have the option of following the terms and conditions either +of that published version or of any later version published by the +Free Software Foundation. If the Library as you received it does not +specify a version number of the GNU Lesser General Public License, you +may choose any version of the GNU Lesser General Public License ever +published by the Free Software Foundation. + +If the Library as you received it specifies that a proxy can decide +whether future versions of the GNU Lesser General Public License shall +apply, that proxy's public statement of acceptance of any version is +permanent authorization for you to choose that version for the +Library. diff --git a/diag_manager/diag_axis.F90 b/diag_manager/diag_axis.F90 index 37421d089..bef005322 100644 --- a/diag_manager/diag_axis.F90 +++ b/diag_manager/diag_axis.F90 @@ -1,3 +1,22 @@ +!*********************************************************************** +!* GNU Lesser General Public License +!* +!* This file is part of the GFDL Flexible Modeling System (FMS). +!* +!* FMS is free software: you can redistribute it and/or modify it under +!* the terms of the GNU Lesser General Public License as published by +!* the Free Software Foundation, either version 3 of the License, or (at +!* your option) any later version. +!* +!* FMS is distributed in the hope that it will be useful, but WITHOUT +!* ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or +!* FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License +!* for more details. +!* +!* You should have received a copy of the GNU Lesser General Public +!* License along with FMS. If not, see . +!*********************************************************************** + #include MODULE diag_axis_mod diff --git a/diag_manager/diag_data.F90 b/diag_manager/diag_data.F90 index dc9805b8b..b89a75d99 100644 --- a/diag_manager/diag_data.F90 +++ b/diag_manager/diag_data.F90 @@ -1,3 +1,22 @@ +!*********************************************************************** +!* GNU Lesser General Public License +!* +!* This file is part of the GFDL Flexible Modeling System (FMS). +!* +!* FMS is free software: you can redistribute it and/or modify it under +!* the terms of the GNU Lesser General Public License as published by +!* the Free Software Foundation, either version 3 of the License, or (at +!* your option) any later version. +!* +!* FMS is distributed in the hope that it will be useful, but WITHOUT +!* ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or +!* FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License +!* for more details. +!* +!* You should have received a copy of the GNU Lesser General Public +!* License along with FMS. If not, see . +!*********************************************************************** + #include MODULE diag_data_mod diff --git a/diag_manager/diag_grid.F90 b/diag_manager/diag_grid.F90 index 82b0ae5cf..1cbc340c4 100644 --- a/diag_manager/diag_grid.F90 +++ b/diag_manager/diag_grid.F90 @@ -1,3 +1,22 @@ +!*********************************************************************** +!* GNU Lesser General Public License +!* +!* This file is part of the GFDL Flexible Modeling System (FMS). +!* +!* FMS is free software: you can redistribute it and/or modify it under +!* the terms of the GNU Lesser General Public License as published by +!* the Free Software Foundation, either version 3 of the License, or (at +!* your option) any later version. +!* +!* FMS is distributed in the hope that it will be useful, but WITHOUT +!* ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or +!* FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License +!* for more details. +!* +!* You should have received a copy of the GNU Lesser General Public +!* License along with FMS. If not, see . +!*********************************************************************** + #include MODULE diag_grid_mod diff --git a/diag_manager/diag_manager.F90 b/diag_manager/diag_manager.F90 index 22e0a7361..a33266cd5 100644 --- a/diag_manager/diag_manager.F90 +++ b/diag_manager/diag_manager.F90 @@ -1,3 +1,22 @@ +!*********************************************************************** +!* GNU Lesser General Public License +!* +!* This file is part of the GFDL Flexible Modeling System (FMS). +!* +!* FMS is free software: you can redistribute it and/or modify it under +!* the terms of the GNU Lesser General Public License as published by +!* the Free Software Foundation, either version 3 of the License, or (at +!* your option) any later version. +!* +!* FMS is distributed in the hope that it will be useful, but WITHOUT +!* ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or +!* FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License +!* for more details. +!* +!* You should have received a copy of the GNU Lesser General Public +!* License along with FMS. If not, see . +!*********************************************************************** + #include MODULE diag_manager_mod diff --git a/diag_manager/diag_manifest.F90 b/diag_manager/diag_manifest.F90 index c9cd2b7cb..ded072278 100644 --- a/diag_manager/diag_manifest.F90 +++ b/diag_manager/diag_manifest.F90 @@ -1,3 +1,22 @@ +!*********************************************************************** +!* GNU Lesser General Public License +!* +!* This file is part of the GFDL Flexible Modeling System (FMS). +!* +!* FMS is free software: you can redistribute it and/or modify it under +!* the terms of the GNU Lesser General Public License as published by +!* the Free Software Foundation, either version 3 of the License, or (at +!* your option) any later version. +!* +!* FMS is distributed in the hope that it will be useful, but WITHOUT +!* ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or +!* FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License +!* for more details. +!* +!* You should have received a copy of the GNU Lesser General Public +!* License along with FMS. If not, see . +!*********************************************************************** + !> \author Seth Underwood !! !! \brief diag_manifest_mod writes out a manifest file for each diagnostic output diff --git a/diag_manager/diag_output.F90 b/diag_manager/diag_output.F90 index cf859877e..244b7fef6 100644 --- a/diag_manager/diag_output.F90 +++ b/diag_manager/diag_output.F90 @@ -1,3 +1,22 @@ +!*********************************************************************** +!* GNU Lesser General Public License +!* +!* This file is part of the GFDL Flexible Modeling System (FMS). +!* +!* FMS is free software: you can redistribute it and/or modify it under +!* the terms of the GNU Lesser General Public License as published by +!* the Free Software Foundation, either version 3 of the License, or (at +!* your option) any later version. +!* +!* FMS is distributed in the hope that it will be useful, but WITHOUT +!* ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or +!* FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License +!* for more details. +!* +!* You should have received a copy of the GNU Lesser General Public +!* License along with FMS. If not, see . +!*********************************************************************** + #include MODULE diag_output_mod @@ -121,7 +140,7 @@ SUBROUTINE diag_output_init(file_name, FORMAT, file_title, file_unit,& fileset = MPP_SINGLE END IF - + !> Check to make sure that only domain2D or domainUG is used. If both are not null, then FATAL if (domain .NE. NULL_DOMAIN2D .AND. domainU .NE. NULL_DOMAINUG)& & CALL error_mesg('diag_output_init', "Domain2D and DomainUG can not be used at the same time in "//& diff --git a/diag_manager/diag_table.F90 b/diag_manager/diag_table.F90 index ba5750de5..82f32e3ba 100644 --- a/diag_manager/diag_table.F90 +++ b/diag_manager/diag_table.F90 @@ -1,3 +1,22 @@ +!*********************************************************************** +!* GNU Lesser General Public License +!* +!* This file is part of the GFDL Flexible Modeling System (FMS). +!* +!* FMS is free software: you can redistribute it and/or modify it under +!* the terms of the GNU Lesser General Public License as published by +!* the Free Software Foundation, either version 3 of the License, or (at +!* your option) any later version. +!* +!* FMS is distributed in the hope that it will be useful, but WITHOUT +!* ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or +!* FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License +!* for more details. +!* +!* You should have received a copy of the GNU Lesser General Public +!* License along with FMS. If not, see . +!*********************************************************************** + MODULE diag_table_mod ! ! Seth Underwood diff --git a/diag_manager/diag_util.F90 b/diag_manager/diag_util.F90 index d16caceb2..c85263782 100644 --- a/diag_manager/diag_util.F90 +++ b/diag_manager/diag_util.F90 @@ -1,4 +1,23 @@ -#include +!*********************************************************************** +!* GNU Lesser General Public License +!* +!* This file is part of the GFDL Flexible Modeling System (FMS). +!* +!* FMS is free software: you can redistribute it and/or modify it under +!* the terms of the GNU Lesser General Public License as published by +!* the Free Software Foundation, either version 3 of the License, or (at +!* your option) any later version. +!* +!* FMS is distributed in the hope that it will be useful, but WITHOUT +!* ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or +!* FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License +!* for more details. +!* +!* You should have received a copy of the GNU Lesser General Public +!* License along with FMS. If not, see . +!*********************************************************************** + +include MODULE diag_util_mod ! diff --git a/include/file_version.h b/include/file_version.h index cbff7bdbb..794fc707f 100644 --- a/include/file_version.h +++ b/include/file_version.h @@ -1,4 +1,22 @@ ! -*-f90-*- +!*********************************************************************** +!* GNU Lesser General Public License +!* +!* This file is part of the GFDL Flexible Modeling System (FMS). +!* +!* FMS is free software: you can redistribute it and/or modify it under +!* the terms of the GNU Lesser General Public License as published by +!* the Free Software Foundation, either version 3 of the License, or (at +!* your option) any later version. +!* +!* FMS is distributed in the hope that it will be useful, but WITHOUT +!* ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or +!* FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License +!* for more details. +!* +!* You should have received a copy of the GNU Lesser General Public +!* License along with FMS. If not, see . +!*********************************************************************** #ifdef _FILE_VERSION character(len=*), parameter :: version = _FILE_VERSION diff --git a/include/fms_platform.h b/include/fms_platform.h index ee64ae0bc..677d68cb3 100644 --- a/include/fms_platform.h +++ b/include/fms_platform.h @@ -2,30 +2,25 @@ #define __FMS_PLATFORM_ ! -*-f90-*-* -!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! -!! !! -!! GNU General Public License !! -!! !! -!! This file is part of the Flexible Modeling System (FMS). !! -!! !! -!! FMS is free software; you can redistribute it and/or modify !! -!! it and are expected to follow the terms of the GNU General Public !! -!! License as published by the Free Software Foundation. !! -!! !! -!! FMS is distributed in the hope that it will be useful, !! -!! but WITHOUT ANY WARRANTY; without even the implied warranty of !! -!! MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the !! -!! GNU General Public License for more details. !! -!! !! -!! You should have received a copy of the GNU General Public License !! -!! along with FMS; if not, write to: !! -!! Free Software Foundation, Inc. !! -!! 59 Temple Place, Suite 330 !! -!! Boston, MA 02111-1307 USA !! -!! or see: !! -!! http://www.gnu.org/licenses/gpl.txt !! -!! !! -!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! +!*********************************************************************** +!* GNU Lesser General Public License +!* +!* This file is part of the GFDL Flexible Modeling System (FMS). +!* +!* FMS is free software: you can redistribute it and/or modify it under +!* the terms of the GNU Lesser General Public License as published by +!* the Free Software Foundation, either version 3 of the License, or (at +!* your option) any later version. +!* +!* FMS is distributed in the hope that it will be useful, but WITHOUT +!* ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or +!* FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License +!* for more details. +!* +!* You should have received a copy of the GNU Lesser General Public +!* License along with FMS. If not, see . +!*********************************************************************** + #ifdef __sgi #ifdef _COMPILER_VERSION !the MIPSPro compiler defines _COMPILER_VERSION @@ -123,13 +118,13 @@ #define _PURE PURE #else !DEC$ MESSAGE:'Not using PURE' -#define _PURE +#define _PURE #endif #ifdef _F2000 !DEC$ MESSAGE:'Converting pointers to allocatable components' #define _ALLOCATABLE ALLOCATABLE -#define _NULL +#define _NULL #define _ALLOCATED ALLOCATED #else !DEC$ MESSAGE:'Using pointers' diff --git a/platform/platform.F90 b/platform/platform.F90 index a73557027..b253d4573 100644 --- a/platform/platform.F90 +++ b/platform/platform.F90 @@ -1,3 +1,22 @@ +!*********************************************************************** +!* GNU Lesser General Public License +!* +!* This file is part of the GFDL Flexible Modeling System (FMS). +!* +!* FMS is free software: you can redistribute it and/or modify it under +!* the terms of the GNU Lesser General Public License as published by +!* the Free Software Foundation, either version 3 of the License, or (at +!* your option) any later version. +!* +!* FMS is distributed in the hope that it will be useful, but WITHOUT +!* ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or +!* FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License +!* for more details. +!* +!* You should have received a copy of the GNU Lesser General Public +!* License along with FMS. If not, see . +!*********************************************************************** + module platform_mod !platform-dependent settings #include diff --git a/platform/platform.html b/platform/platform.html index f828c8379..242a3a90c 100644 --- a/platform/platform.html +++ b/platform/platform.html @@ -1,4 +1,24 @@ + module platform_mod: platform-specific settings for f90 diff --git a/sat_vapor_pres/sat_vapor_pres.F90 b/sat_vapor_pres/sat_vapor_pres.F90 index f7b96ff8f..e8a55e065 100644 --- a/sat_vapor_pres/sat_vapor_pres.F90 +++ b/sat_vapor_pres/sat_vapor_pres.F90 @@ -1,3 +1,21 @@ +!*********************************************************************** +!* GNU Lesser General Public License +!* +!* This file is part of the GFDL Flexible Modeling System (FMS). +!* +!* FMS is free software: you can redistribute it and/or modify it under +!* the terms of the GNU Lesser General Public License as published by +!* the Free Software Foundation, either version 3 of the License, or (at +!* your option) any later version. +!* +!* FMS is distributed in the hope that it will be useful, but WITHOUT +!* ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or +!* FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License +!* for more details. +!* +!* You should have received a copy of the GNU Lesser General Public +!* License along with FMS. If not, see . +!*********************************************************************** module sat_vapor_pres_mod @@ -9,8 +27,8 @@ module sat_vapor_pres_mod ! ! routines for computing the saturation vapor pressure (es), ! the specific humidity (qs) and vapor mixing ratio (mrs) at -! a specified relative humidity, the derivatives of es, qs and mrs -! with respect to temperature, and initialization of the +! a specified relative humidity, the derivatives of es, qs and mrs +! with respect to temperature, and initialization of the ! look-up table. ! !----------------------------------------------------------------------- @@ -30,7 +48,7 @@ module sat_vapor_pres_mod ! ! call lookup_es2_des2 (temp, es, des, err_msg) ! -! call compute_qs (temp, press, qs, q, hc, dqsdT, esat, +! call compute_qs (temp, press, qs, q, hc, dqsdT, esat, ! err_msg, es_over_liq) ! ! call compute_mrs (temp, press, mrs, mr, hc, dmrsdT, esat, @@ -41,12 +59,12 @@ module sat_vapor_pres_mod ! temp intent in temperature in degrees kelvin ! es intent out saturation vapor pressure in Pascals ! des intent out derivative of saturation vapor pressure -! with respect to temperature +! with respect to temperature ! (Pascals/degree) ! press intent in atmospheric pressure in Pascals ! qs intent out specific humidity at relative humidity hc ! (kg(vapor) / kg(moist air) -! mrs intent out mixing ratio at relative humidity hc +! mrs intent out mixing ratio at relative humidity hc ! (kg(vapor) / kg(dry air) ! ! optional arguments @@ -55,13 +73,13 @@ module sat_vapor_pres_mod ! (kg(vapor) / kg(moist air) ! hc intent in relative humidity at which output ! fields are desired: default is 100 % -! dqsdT intent out derivative of saturation specific -! humidity with respect to temperature +! dqsdT intent out derivative of saturation specific +! humidity with respect to temperature ! (kg(vapor) / kg(moist air) /degree) -! mr intent in vapor mixing ratio +! mr intent in vapor mixing ratio ! (kg(vapor) / kg(dry air) ! dmrsdT intent out derivative of saturation mixing ratio -! with respect to temperature +! with respect to temperature ! (kg(vapor) / kg(dry air) /degree) ! esat intent out saturation vapor pressure ! (Pascals) @@ -78,9 +96,9 @@ module sat_vapor_pres_mod ! ! -! Routines for determining the saturation vapor pressure -! (ES), saturation vapor specific humidity and saturation -! vapor mixing ratio, and their derivatives with respect to +! Routines for determining the saturation vapor pressure +! (ES), saturation vapor specific humidity and saturation +! vapor mixing ratio, and their derivatives with respect to ! temperature. ! @@ -98,9 +116,9 @@ module sat_vapor_pres_mod ! humidity and saturation mixing ratio for vapor, and their deriv- ! atives with respect to temperature. By default, the values returned ! are those at saturation; optionally, values of q and mr at a spec- -! ified relative humidity may instead be returned. Two forms are -! available; the approximate form that has been traditionally used in -! GCMs, and an exact form provided by SJ Lin in which saturation is +! ified relative humidity may instead be returned. Two forms are +! available; the approximate form that has been traditionally used in +! GCMs, and an exact form provided by SJ Lin in which saturation is ! reached while maintaining constant pressure and temperature. ! This version was written for non-vector machines. @@ -139,7 +157,7 @@ module sat_vapor_pres_mod ! use lookup_es, lookup_des instead !----------------------------------------------------------------------- - + ! ! @@ -230,11 +248,11 @@ module sat_vapor_pres_mod end interface !----------------------------------------------------------------------- - + ! ! -! For the given temperatures, returns the saturation vapor pressure +! For the given temperatures, returns the saturation vapor pressure ! and the derivative of saturation vapor pressure with respect to ! temperature. ! @@ -281,7 +299,7 @@ module sat_vapor_pres_mod interface lookup_es2 module procedure lookup_es2_0d, lookup_es2_1d, lookup_es2_2d, lookup_es2_3d end interface - + interface lookup_des2 module procedure lookup_des2_0d, lookup_des2_1d, lookup_des2_2d, lookup_des2_3d end interface @@ -294,7 +312,7 @@ module sat_vapor_pres_mod interface lookup_es3 module procedure lookup_es3_0d, lookup_es3_1d, lookup_es3_2d, lookup_es3_3d end interface - + interface lookup_des3 module procedure lookup_des3_0d, lookup_des3_1d, lookup_des3_2d, lookup_des3_3d end interface @@ -304,12 +322,12 @@ module sat_vapor_pres_mod end interface !----------------------------------------------------------------------- - + ! ! -! For the given temperatures, pressures and optionally vapor -! specific humidity, returns the specific humidity at saturation +! For the given temperatures, pressures and optionally vapor +! specific humidity, returns the specific humidity at saturation ! (optionally at relative humidity hc instead of at saturation) and ! optionally the derivative of saturation specific humidity w.r.t. ! temperature, and the saturation vapor pressure. @@ -318,14 +336,14 @@ module sat_vapor_pres_mod ! For the input temperature and pressure these routines return the ! specific humidity (qsat) at saturation (unless optional argument ! hc is used to specify the relative humidity at which qsat should -! apply) and, if desired, the derivative of qsat w.r.t temperature -! (dqsdT) and / or the saturation vapor pressure (esat). If the -! optional input argument specific humidity (q) is present, the +! apply) and, if desired, the derivative of qsat w.r.t temperature +! (dqsdT) and / or the saturation vapor pressure (esat). If the +! optional input argument specific humidity (q) is present, the ! exact expression for qs is used; if q is not present the tradit- -! ional form (valid at saturation) is used. if the optional qsat -! derivative argument is present, the derivative of qsat w.r.t. -! temperature will also be returned, defined consistent with the -! expression used for qsat. The return values are derived from +! ional form (valid at saturation) is used. if the optional qsat +! derivative argument is present, the derivative of qsat w.r.t. +! temperature will also be returned, defined consistent with the +! expression used for qsat. The return values are derived from ! lookup tables (see notes below). ! !