1C Copyright 1981-2016 ECMWF. 2C 3C This software is licensed under the terms of the Apache Licence 4C Version 2.0 which can be obtained at http://www.apache.org/licenses/LICENSE-2.0. 5C 6C In applying this licence, ECMWF does not waive the privileges and immunities 7C granted to it by virtue of its status as an intergovernmental organisation 8C nor does it submit to any jurisdiction. 9C 10 11 SUBROUTINE FREECF(KFLAG) 12C 13C----> 14C**** FREECF 15C 16C PURPOSE 17C _______ 18C 19C This routine sets the flag controlling handling of spectral 20C to grid interpolation coefficients memory. 21C 22C 23C INTERFACE 24C _________ 25C 26C CALL FREECF(KFLAG) 27C 28C Input parameters 29C ________________ 30C 31C KFLAG - Flag indicating whether flushing of memory is done or not 32C = 1 to turn on flushing 33C = any other value to turn off flushing (default) 34C 35C 36C Output parameters 37C ________________ 38C 39C None 40C 41C 42C Common block usage 43C __________________ 44C 45C JDCSPGP - flag LFREECF 46C 47C 48C Method 49C ______ 50C 51C Sets flags LFREECF and NFREECF 52C 53C 54C Externals 55C _________ 56C 57C None 58C 59C 60C Reference 61C _________ 62C 63C None 64C 65C 66C Comments 67C ________ 68C 69C None. 70C 71C 72C AUTHOR 73C ______ 74C 75C J.D.Chambers ECMWF March 1998 76C 77C 78C MODIFICATIONS 79C _____________ 80C 81C None 82C 83C----< 84C 85 IMPLICIT NONE 86C 87#include "jparam2.h" 88C 89C Subroutine arguments 90C 91 INTEGER KFLAG 92C 93 IF( KFLAG.EQ.1 ) THEN 94 LFREECF = .TRUE. 95 NFREECF = 11041967 96 ELSE 97 LFREECF = .FALSE. 98 NFREECF = 11041967 99 ENDIF 100C 101 RETURN 102 END 103