Git Product home page Git Product logo

monortm's People

Contributors

inpolonsky avatar jrmascio avatar kcadyper avatar pernak18 avatar

Stargazers

 avatar  avatar  avatar  avatar  avatar

Watchers

 avatar  avatar  avatar

monortm's Issues

netCDF

Compiling still requires netCDF:

make -f make_monortm linuxGNUsgl
results in error

make -f make_monortm all P_TYPE=sgl FC_TYPE=gnu PLTFRM=linux
FC=gfortran
FCFLAG="-Wall -frecord-marker=4"
make[1]: Entering directory `/run/media/ipolonsk/data/AER/temp/monoRTM/build'


monortm_v5.5_linux_gnu_sgl Makefile

This Makefile was designed for the linux platform.

It uses the gfortran compiler, with the following options:
-Wall -frecord-marker=4

The source files used are as follows:

  CntnmFactors.f90 lblparams.f90 PhysConstants.f90 struct_types.f90 PlanetEarth.f90 contnm.f90 monortm_sub.F90 modm.f90 RTMmono.f90 CloudOptProp.f90 lnfl_mod.f90 monortm.f90 tips_2003.f90 lblatm.f90 lblrtm_sub.f90  bufin_sgl.f90 netcdf_helper_mod.F90

monortm_v5.5_linux_gnu_sgl make in progress ...

test -d monortm_v5.5_linux_gnu_sgl.obj || mkdir monortm_v5.5_linux_gnu_sgl.obj
test -d monortm_v5.5_linux_gnu_sgl.mods || mkdir monortm_v5.5_linux_gnu_sgl.mods
gfortran -c -Wall -frecord-marker=4 -I. -Imonortm_v5.5_linux_gnu_sgl.mods ../src/CntnmFactors.f90 -o monortm_v5.5_linux_gnu_sgl.obj/CntnmFactors.o
gfortran -c -Wall -frecord-marker=4 -I. -Imonortm_v5.5_linux_gnu_sgl.mods ../src/lblparams.f90 -o monortm_v5.5_linux_gnu_sgl.obj/lblparams.o
../src/lblparams.f90:32.45:

  integer, parameter :: NFPTS=2001, NFMX=1.3*NFPTS
                                         1

Warning: Possible change of value in conversion from REAL(4) to INTEGER(4) at (1)
gfortran -c -Wall -frecord-marker=4 -I. -Imonortm_v5.5_linux_gnu_sgl.mods ../src/PhysConstants.f90 -o monortm_v5.5_linux_gnu_sgl.obj/PhysConstants.o
gfortran -c -Wall -frecord-marker=4 -I. -Imonortm_v5.5_linux_gnu_sgl.mods ../src/struct_types.f90 -o monortm_v5.5_linux_gnu_sgl.obj/struct_types.o
gfortran -c -Wall -frecord-marker=4 -I. -Imonortm_v5.5_linux_gnu_sgl.mods ../src/PlanetEarth.f90 -o monortm_v5.5_linux_gnu_sgl.obj/PlanetEarth.o
gfortran -c -Wall -frecord-marker=4 -I. -Imonortm_v5.5_linux_gnu_sgl.mods ../src/contnm.f90 -o monortm_v5.5_linux_gnu_sgl.obj/contnm.o
../src/contnm.f90:1390.10:

& ' CO2: modification from 2000-3200 cm-1 (AERI(ARM), ', &
1
Warning: Initialization string starting at (1) was truncated to fit the variable (51/52)
../src/contnm.f90:1137.3:

900 FORMAT (/,'0 *********************************************',/, &
1
Warning: Label 900 at (1) defined but not used
../src/contnm.f90:1133.3:

100 continue
1
Warning: Label 100 at (1) defined but not used
../src/contnm.f90:10418.10:

NPTC = ((V2C - V1C)/DVC) + 1
1
Warning: Possible change of value in conversion from REAL(8) to INTEGER(4) at (1)
../src/contnm.f90:10442.19:

        C(j) = cloudodlayer(layer,i-1)+ (v_cntnm(j)-v_cloud_freq(i-1))*&
               1

Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1)
../src/contnm.f90:1450.11:

  I1 = (V1C-V1S)/DVS + 0.01
       1

Warning: Possible change of value in conversion from REAL(8) to INTEGER(4) at (1)
../src/contnm.f90:1454.8:

I2 = (V2C-V1S)/DVS + 0.01
1
Warning: Possible change of value in conversion from REAL(8) to INTEGER(4) at (1)
../src/contnm.f90:1959.11:

  I1 = (V1C-V1S)/DVS + 0.01
       1

Warning: Possible change of value in conversion from REAL(8) to INTEGER(4) at (1)
../src/contnm.f90:1963.8:

I2 = (V2C-V1S)/DVS + 0.01
1
Warning: Possible change of value in conversion from REAL(8) to INTEGER(4) at (1)
../src/contnm.f90:1156.15:

nbnd_v1c = 2 + (v1ss-v1abs)/dvabs + 1.e-5
1
Warning: Possible change of value in conversion from REAL(8) to INTEGER(4) at (1)
../src/contnm.f90:1160.14:

nbnd_v2c = 1 + (v2ss-v1abs)/dvabs + 1.e-5
1
Warning: Possible change of value in conversion from REAL(8) to INTEGER(4) at (1)
../src/contnm.f90:2466.11:

  I1 = (V1C-V1S)/DVS + 0.01
       1

Warning: Possible change of value in conversion from REAL(8) to INTEGER(4) at (1)
../src/contnm.f90:2470.8:

I2 = (V2C-V1S)/DVS + 0.01
1
Warning: Possible change of value in conversion from REAL(8) to INTEGER(4) at (1)
../src/contnm.f90:420.19:

        JFAC = (VJ +10.)/10. + 0.00001
               1

Warning: Possible change of value in conversion from REAL(8) to INTEGER(4) at (1)
../src/contnm.f90:430.20:

        FSCAL = 1. +                                          &
                1

Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1)
../src/contnm.f90:2992.11:

  I1 = (V1C-V1S)/DVS + 0.01
       1

Warning: Possible change of value in conversion from REAL(8) to INTEGER(4) at (1)
../src/contnm.f90:2996.8:

I2 = (V2C-V1S)/DVS + 0.01
1
Warning: Possible change of value in conversion from REAL(8) to INTEGER(4) at (1)
../src/contnm.f90:510.19:

        JFAC = (VJ - 1998.)/2. + 0.00001
               1

Warning: Possible change of value in conversion from REAL(8) to INTEGER(4) at (1)
../src/contnm.f90:4704.11:

  I1 = (V1C-V1S)/DVS + 0.01
       1

Warning: Possible change of value in conversion from REAL(8) to INTEGER(4) at (1)
../src/contnm.f90:4708.8:

I2 = (V2C-V1S)/DVS + 0.01
1
Warning: Possible change of value in conversion from REAL(8) to INTEGER(4) at (1)
../src/contnm.f90:4724.15:

     C0(J)=X(I)/VJ
           1

Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1)
../src/contnm.f90:4725.15:

     C1(J)=Y(I)/VJ
           1

Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1)
../src/contnm.f90:4726.15:

     C2(J)=Z(I)/VJ
           1

Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1)
../src/contnm.f90:6868.11:

  I1 = (V1C-V1S)/DVS + 0.01
       1

Warning: Possible change of value in conversion from REAL(8) to INTEGER(4) at (1)
../src/contnm.f90:6872.8:

I2 = (V2C-V1S)/DVS + 0.01
1
Warning: Possible change of value in conversion from REAL(8) to INTEGER(4) at (1)
../src/contnm.f90:6882.13:

  C(J) = S(I)/VJ
         1

Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1)
../src/contnm.f90:7554.11:

  I1 = (V1C-V1S)/DVS + 0.01
       1

Warning: Possible change of value in conversion from REAL(8) to INTEGER(4) at (1)
../src/contnm.f90:7558.8:

I2 = (V2C-V1S)/DVS + 0.01
1
Warning: Possible change of value in conversion from REAL(8) to INTEGER(4) at (1)
../src/contnm.f90:8198.11:

  I1 = (V1C-V1S)/DVS + 0.01
       1

Warning: Possible change of value in conversion from REAL(8) to INTEGER(4) at (1)
../src/contnm.f90:8202.8:

I2 = (V2C-V1S)/DVS + 0.01
1
Warning: Possible change of value in conversion from REAL(8) to INTEGER(4) at (1)
../src/contnm.f90:580.17:

     I_FIX = (40800.-V1ABS)/DVABS+1.001
             1

Warning: Possible change of value in conversion from REAL(8) to INTEGER(4) at (1)
../src/contnm.f90:8844.11:

  I1 = (V1C-V1S)/DVS + 0.01
       1

Warning: Possible change of value in conversion from REAL(8) to INTEGER(4) at (1)
../src/contnm.f90:8848.8:

I2 = (V2C-V1S)/DVS + 0.01
1
Warning: Possible change of value in conversion from REAL(8) to INTEGER(4) at (1)
../src/contnm.f90:8858.13:

  C(J) = S(I)/VJ
         1

Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1)
../src/contnm.f90:621.17:

     I_FIX = (40800.-V1ABS)/DVABS+1.001
             1

Warning: Possible change of value in conversion from REAL(8) to INTEGER(4) at (1)
../src/contnm.f90:8978.3:

920 format (f10.2,1p,e12.2,0p,f10.2,1p2e12.2)
1
Warning: Label 920 at (1) defined but not used
../src/contnm.f90:8958.11:

  I1 = (V1C-V1S)/DVS + 0.01
       1

Warning: Possible change of value in conversion from REAL(8) to INTEGER(4) at (1)
../src/contnm.f90:8962.8:

I2 = (V2C-V1S)/DVS + 0.01
1
Warning: Possible change of value in conversion from REAL(8) to INTEGER(4) at (1)
../src/contnm.f90:8974.13:

  c(j) = factor * xo2(i)* exp(xo2t(i)*xktfac) / vj
         1

Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1)
../src/contnm.f90:9081.11:

  I1 = (V1C-V1S)/DVS + 0.01
       1

Warning: Possible change of value in conversion from REAL(8) to INTEGER(4) at (1)
../src/contnm.f90:9085.8:

I2 = (V2C-V1S)/DVS + 0.01
1
Warning: Possible change of value in conversion from REAL(8) to INTEGER(4) at (1)
../src/contnm.f90:9095.13:

  C(J) = xo2inf1(I)/vj
         1

Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1)
../src/contnm.f90:9252.10:

NPTC = (v2c-v1c)/dvc + 3.01
1
Warning: Possible change of value in conversion from REAL(8) to INTEGER(4) at (1)
../src/contnm.f90:9259.15:

     DV1 = Vj - V1_osc
           1

Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1)
../src/contnm.f90:9260.15:

     DV2 = Vj - V2_osc
           1

Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1)
../src/contnm.f90:9273.16:

     C(J) = O2INF/VJ
            1

Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1)
../src/contnm.f90:9311.11:

  I1 = (V1C-V1S)/DVS + 0.01
       1

Warning: Possible change of value in conversion from REAL(8) to INTEGER(4) at (1)
../src/contnm.f90:9315.8:

I2 = (V2C-V1S)/DVS + 0.01
1
Warning: Possible change of value in conversion from REAL(8) to INTEGER(4) at (1)
../src/contnm.f90:9325.13:

  C(J) = xo2inf3(I)/vj
         1

Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1)
../src/contnm.f90:9436.11:

  I1 = (V1C-V1S)/DVS + 0.01
       1

Warning: Possible change of value in conversion from REAL(8) to INTEGER(4) at (1)
../src/contnm.f90:9440.8:

I2 = (V2C-V1S)/DVS + 0.01
1
Warning: Possible change of value in conversion from REAL(8) to INTEGER(4) at (1)
../src/contnm.f90:9451.13:

  C(J) = factor*S(I)/vj
         1

Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1)
../src/contnm.f90:9829.11:

  I1 = (V1C-V1S)/DVS + 0.01
       1

Warning: Possible change of value in conversion from REAL(8) to INTEGER(4) at (1)
../src/contnm.f90:9833.8:

I2 = (V2C-V1S)/DVS + 0.01
1
Warning: Possible change of value in conversion from REAL(8) to INTEGER(4) at (1)
../src/contnm.f90:9886.27:

IF (V.LE.40000.) CORR = ((40000.-V)/4000.)*7.917E-07
1
Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1)
../src/contnm.f90:9896.12:

YRATIO = V/48811.0
1
Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1)
../src/contnm.f90:9847.13:

  C(J) = HERZ/VJ
         1

Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1)
../src/contnm.f90:9973.11:

  I1 = (V1C-V1S)/DVS + 1.e-5
       1

Warning: Possible change of value in conversion from REAL(8) to INTEGER(4) at (1)
../src/contnm.f90:9977.8:

I2 = (V2C-V1S)/DVS + 1.e-5
1
Warning: Possible change of value in conversion from REAL(8) to INTEGER(4) at (1)
../src/contnm.f90:9989.13:

  C(J) = S(I)/vj
         1

Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1)
../src/contnm.f90:4201.11:

  I1 = (V1C-V1S)/DVS + 0.01
       1

Warning: Possible change of value in conversion from REAL(8) to INTEGER(4) at (1)
../src/contnm.f90:4205.8:

I2 = (V2C-V1S)/DVS + 0.01
1
Warning: Possible change of value in conversion from REAL(8) to INTEGER(4) at (1)
../src/contnm.f90:4378.11:

  I1 = (V1C-V1S)/DVS + 0.01
       1

Warning: Possible change of value in conversion from REAL(8) to INTEGER(4) at (1)
../src/contnm.f90:4382.8:

I2 = (V2C-V1S)/DVS + 0.01
1
Warning: Possible change of value in conversion from REAL(8) to INTEGER(4) at (1)
../src/contnm.f90:4407.13:

  c(j) = c(j)/vj
         1

Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1)
../src/contnm.f90:4606.11:

  I1 = (V1C-V1S)/DVS + 0.01
       1

Warning: Possible change of value in conversion from REAL(8) to INTEGER(4) at (1)
../src/contnm.f90:4610.8:

I2 = (V2C-V1S)/DVS + 0.01
1
Warning: Possible change of value in conversion from REAL(8) to INTEGER(4) at (1)
../src/contnm.f90:4625.13:

  c(j) = c(j)/vj
         1

Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1)
../src/contnm.f90:1115.22:

     xvrayleigh = vrayleigh/1.e4
                  1

Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1)
../src/contnm.f90:10373.13:

logical EX
1
Warning: Unused variable 'ex' declared at (1)
gfortran -c -Wall -frecord-marker=4 -I. -Imonortm_v5.5_linux_gnu_sgl.mods ../src/RTMmono.f90 -o monortm_v5.5_linux_gnu_sgl.obj/RTMmono.o
../src/RTMmono.f90:319.14:

        x=radcn1*(wn(ifr)**3)/radtmr+1.
          1

Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1)
../src/RTMmono.f90:320.23:

        tmr(ifr) = radcn2*wn(ifr) / log(x)
                   1

Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1)
../src/RTMmono.f90:235.18:

      bb_fn = radcn1*(v**3)/(exp(v*fbeta)-1.)
              1

Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1)
../src/RTMmono.f90:102.31:

HVRSUB = '$Revision: 19812 $'
1
Warning: CHARACTER expression will be truncated in assignment (15/18) at (1)
../src/RTMmono.f90:150.10:

    X=RADCN1*(WN(I)**3)/RAD(I)+1.
      1

Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1)
../src/RTMmono.f90:151.14:

    TB(I)=RADCN2*WN(I)/log(X)
          1

Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1)
gfortran -c -Wall -frecord-marker=4 -I. -Imonortm_v5.5_linux_gnu_sgl.mods ../src/netcdf_helper_mod.f90 -o monortm_v5.5_linux_gnu_sgl.obj/netcdf_helper_mod.o
Warning: ../src/netcdf_helper_mod.f90:1: Illegal preprocessor directive
Warning: ../src/netcdf_helper_mod.f90:27: Illegal preprocessor directive
../src/netcdf_helper_mod.f90:12.8:

USE netcdf
    1

Fatal Error: Can't open module file 'netcdf.mod' for reading at (1): No such file or directory
make[1]: *** [netcdf_helper_mod.o] Error 1
make[1]: Leaving directory `/run/media/ipolonsk/data/AER/temp/monoRTM/build'
make: *** [linuxGNUsgl] Error 2

to resolve two files have to be modified:
File make_monortm

  1. line 40
    lnfl_mod.f90 monortm.f90 tips_2003.f90 lblatm.f90 lblrtm_sub.f90 bufin_sgl.f90 netcdf_helper_mod.F90
    replace with
    lnfl_mod.f90 monortm.f90 tips_2003.f90 lblatm.f90 lblrtm_sub.f90 bufin_sgl.f90
    ifeq ($(NETCDF),yes)
    SRCS += netcdf_helper_mod.F90
    endif
  2. line 52
    monortm_sub.o : netcdf_helper_mod.o
    replace with
    lnfl_mod.f90 monortm.f90 tips_2003.f90 lblatm.f90 lblrtm_sub.f90 bufin_sgl.f90
    ifeq ($(NETCDF),yes)
    monortm_sub.o : netcdf_helper_mod.o
    endif

File monortm_sub.f90

  1. line 525
    USE netcdf_helper_mod
    replace with
    #ifdef USENETCDF
    USE netcdf_helper_mod
    #endif

I ran into this problem while running the example

  **********************************
  *        M O N O R T M           *
  *        Release  5.6            *
  **********************************

NUMBER OF PROFILES: 1
INPUTS FROM MONORTM.IN

Program received signal SIGSEGV: Segmentation fault - invalid memory reference.

Backtrace for this error:
#0 0x150383656E08
#1 0x150383655F90
#2 0x150382D874BF
#3 0x4221E9 in __lnfl_mod_MOD_prlnhd at lnfl_mod.f90:?
#4 0x42328E in __lnfl_mod_MOD_get_lnfl
#5 0x41DF9B in modmmod_MOD_modm
#6 0x427CB3 in MAIN
at monortm.f90:?

I have run several versions(e.g v5.6 v5.5 v5.4) and all have produced this error,how can I solve this problem.Thank you

netcdf_helper_mod.f90 seems superfluous and confuses the make system

The file "netcdf_helper_mod.f90" is (almost) a copy of "netcdf_helper_mod.F90", but confuses the make system because it has a preprocessor directive, but the lower-case f90 file ignores it, and still tries to look for netcdf even if you're trying to make without it. Simply removing the file allowed make to find the correct upper-case F90 file, and the build completed without an issue.

problem with git clone

I I run:
git clone --recursive [email protected]:AER-RC/monoRTM.git

I have the following messages

Cloning into 'monoRTM'...
Permission denied (publickey).
fatal: Could not read from remote repository.

Please make sure you have the correct access rights
and the repository exists.

if I run:
git clone --recursive https://github.com/AER-RC/monoRTM.git
Cloning into 'monoRTM'...
remote: Enumerating objects: 1545, done.
remote: Counting objects: 100% (1545/1545), done.
remote: Compressing objects: 100% (624/624), done.
remote: Total 1545 (delta 908), reused 1494 (delta 867), pack-reused 0
Receiving objects: 100% (1545/1545), 1.63 MiB | 0 bytes/s, done.
Resolving deltas: 100% (908/908), done.
Submodule 'cross-sections' ([email protected]:AER-RC/cross-sections.git) registered for path 'cross-sections'
Cloning into 'cross-sections'...
Warning: Permanently added the RSA host key for IP address '140.82.114.3' to the list of known hosts.
Permission denied (publickey).
fatal: Could not read from remote repository.

Please make sure you have the correct access rights
and the repository exists.
Clone of '[email protected]:AER-RC/cross-sections.git' into submodule path 'cross-sections' failed

Adding monoRTM as a git submodule

Hello Rick @pernak18 and @kcadyper. We would like to track both AER-RC/monoRTM and AER-RC/LBLRTM as git submodules in the CRTM coefficient generation repository and so I wanted to ask which branch we should track for this purpose.

Recommend Projects

  • React photo React

    A declarative, efficient, and flexible JavaScript library for building user interfaces.

  • Vue.js photo Vue.js

    ๐Ÿ–– Vue.js is a progressive, incrementally-adoptable JavaScript framework for building UI on the web.

  • Typescript photo Typescript

    TypeScript is a superset of JavaScript that compiles to clean JavaScript output.

  • TensorFlow photo TensorFlow

    An Open Source Machine Learning Framework for Everyone

  • Django photo Django

    The Web framework for perfectionists with deadlines.

  • D3 photo D3

    Bring data to life with SVG, Canvas and HTML. ๐Ÿ“Š๐Ÿ“ˆ๐ŸŽ‰

Recommend Topics

  • javascript

    JavaScript (JS) is a lightweight interpreted programming language with first-class functions.

  • web

    Some thing interesting about web. New door for the world.

  • server

    A server is a program made to process requests and deliver data to clients.

  • Machine learning

    Machine learning is a way of modeling and interpreting data that allows a piece of software to respond intelligently.

  • Game

    Some thing interesting about game, make everyone happy.

Recommend Org

  • Facebook photo Facebook

    We are working to build community through open source technology. NB: members must have two-factor auth.

  • Microsoft photo Microsoft

    Open source projects and samples from Microsoft.

  • Google photo Google

    Google โค๏ธ Open Source for everyone.

  • D3 photo D3

    Data-Driven Documents codes.