Changeset 163 in lmdz_wrf


Ignore:
Timestamp:
Aug 8, 2014, 12:42:43 PM (10 years ago)
Author:
lfita
Message:

Adding kind of threshold on the printing

Location:
branches/LMDZ_WRFmeas_develop/WRFV3/lmdz
Files:
2 edited

Legend:

Unmodified
Added
Removed

  • branches/LMDZ_WRFmeas_develop/WRFV3/lmdz/diagphy_mod.F90

    r162 r163  
    405405! Local
    406406  INTEGER                                                :: i, k, wrongi, xpt, ypt
     407  CHARACTER(LEN=1)                                       :: char1
    407408  CHARACTER(LEN=50)                                      :: errmsg
    408409  LOGICAL                                                :: found
    … …  
    443444
    444445  IF (found) THEN
     446    IF (kthres == -1) THEN
     447      char1 = '<'
     448    ELSE
     449      char1 = '>'
     450    END IF
    445451    PRINT *,TRIM(errmsg)
    446452    PRINT *,"  at '" // TRIM(funcn) // "' variable '" //TRIM(varn)//                 &
    447       "' is wrong (threshold: ",thresvalue,") in Nvalues= ",wrongi,                  &
     453      "' is wrong, " // char1 // " (threshold: ",thresvalue,") in Nvalues= ",wrongi, &
    448454      ' at i (x,y) k value___'
    449455    DO i=1,wrongi

  • branches/LMDZ_WRFmeas_develop/WRFV3/lmdz/physiq.F90

    r162 r163  
    47624762! Local
    47634763  INTEGER                                                :: i, k, wrongi, xpt, ypt
     4764  CHARACTER(LEN=1)                                       :: char1
    47644765  CHARACTER(LEN=50)                                      :: errmsg
    47654766  LOGICAL                                                :: found
    … …  
    48004801
    48014802  IF (found) THEN
     4803    IF (kthres == -1) THEN
     4804      char1 = '<'
     4805    ELSE
     4806      char1 = '>'
     4807    END IF
    48024808    PRINT *,TRIM(errmsg)
    48034809    PRINT *,"  at '" // TRIM(funcn) // "' variable '" //TRIM(varn)//                 &
    4804       "' is wrong (threshold: ",thresvalue,") in Nvalues= ",wrongi,                  &
     4810      "' is wrong, " // char1 // " (threshold: ",thresvalue,") in Nvalues= ",wrongi, &
    48054811      ' at i (x,y) k value___'
    48064812    DO i=1,wrongi
Note: See TracChangeset for help on using the changeset viewer.